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

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

my $service = 'http://www.heise.de';

my $request = HTTP::Request->new('GET', $service);

my $buffer='';
my $res=$ua->request($request, sub {
        my ($data, $response, $protocol) = @_;
        $buffer.=$data;
        while(length($buffer) >= 794)
        {
          $data=substr($buffer,0,794,'');
          printf("%03u\n",length($data));
        }
    });

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