use IO::Socket;
my $s = IO::Socket::INET->new("rolfrost.de:80") or die $@;
$s->print(qq(GET / HTTP/1.0
Host: rolfrost.de
));
print while <$s>;