use strict;
use warnings;
use IO::Socket;

my $sock = IO::Socket::INET->new("rolfrost.de:80") or die $@;