use strict;
use IO::Socket;

my $text;

print "-------client-------\n";

my $sock = new IO::Socket::INET (PeerAddr => 'localhost',
                                  PeerPort => 8888,
                                  Portto   => 'tcp') || die "$!";

my $hallo = <$sock>;
print "$hallo\n\n";

$text = "huhu";
$sock->send($text);


close($sock);

my $windoof = <STDIN>;