#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

my $service = 'http://rolfrost.de/cgi-bin/100.cgi';
my $res = $ua->get($service);

if($res->is_success)
{
  my $content=$res->decoded_content(charset => 'none');
  printf("%u\n",$_) for(unpack("N*", $content));
}
else
{ warn "request failed...\n"; }