use strict;
use IO::Socket;

my $ausgabe;

print "-------server-------\n\n";

my $sock = new IO::Socket::INET (LocalAddr  => 'localhost',
                                  LocalPort  => 8888,
                                  Portto     => 'tcp',
                                  Listen     => 1,
                                  Reuse      => 1) || die "$!";
my $new_sock = $sock->accept();


print "zu client connectet!";
print $new_sock "hallo!";

$ausgabe = <$new_sock>;
print $ausgabe;


close($new_sock);

my $windoof = <STDIN>;