#!/usr/bin/perl


use IO::Socket;

my $server = IO::Socket::INET->new(
    LocalPort => 2006,
    type => SOCK_STREAM,
    Reuse => 1,
    Listen => 10
) or die "Kann nicht an 2006 lauschen\n";

while ($client = $server->accept()) {
    print $client "$client ist die neue Verbindung\n";
}

print "Keine Reaktion";
close($server);