#!/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, ':read_size_hint' => 4, ':content_cb' => sub {
        my ($data, $response, $protocol) = @_;
        printf("%u\n",unpack('N', $data));
    });

if ($res->is_success)
{ print "OK\n"; }
else
{ print "ERROR\n"; }