my $select = IO::Select->new();

my $server = IO::Socket::INET->new(
    LocalPort => 2005,
    type => SOCK_STREAM,
    Reuse => 1,
    Listen => 10
)
    or die "Server läuft nicht: $@\n";


while(my $client = $server->accept()) {
    foreach my $socket ($select->can_read(5)) {
        print "$socket\n";
    }
}
close($server);

my $socket;
while ($socket = $tcpsock->accept) {
    my $line = <$socket>;
    print $line;
    print $socket "Hier spricht der Client";

}
close ($socket);