#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent ();

my $ua = LWP::UserAgent->new(timeout => 10);
$ua->ssl_opts(verify_hostname => 0);
$ua->env_proxy;
$ua->agent('');

my $u = 'https://netsplit.de/channels/details.php?room=%23perl&net=freenode';
my $r = $ua->get($u);

my $i = '/tmp/channels/irc-stats-712-40793320.png';
my $d = '#perl freenode - Graph about the amount of users during the last weeks';
$r->decoded_content =~ m{<img border="0" src="(/tmp/channels/[^"<>]*?\.png)" alt="([^"<>]*?)"} if $r->is_success;
$i = $1 if $1;
$d = $2 if $2;
print <<HTML;
<a href="$u"><img border="0" src="https://netsplit.de$i" alt="$d"/></a>
HTML