package main;

use strict;
use Data::Dump qw(dump);

my $sockattr = {
	'host' => 'rolfrost.de',
	'uri' => '/cgi-bin/100.cgi',
	'callback' => \&cb,
};



my $s = Net::HTTP10->new($sockattr);

$s->request;
#my($code, $mess, $href) = $s->read_headers or die;
#printf "Status: %s Mesg: %s \nHeaders: %s\n", $code, $mess, dump $href;
$s->body_callback;

sub cb{
	my $socket = shift;
	while(read $socket, my $buf, 4){
		printf "%u\n", unpack "N", $buf;
	}	
}