use strict;
use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET', 'http://rolfrost.de/cgi-bin/100.cgi');

$ua->request($request, \&callback, 4);

sub callback{
	printf "%u\n", unpack "N", shift;
}