my $s = Net::HTTP10->new($sockattr, $headers) or die "Kein Socket";
#print dump $s, "\n"; 
$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;