#!/usr/local/bin/perl -w
# tcp-server-mt-zombies.pl -- Ein Multithreaded-TCP-Server.
#                       ACHTUNG: Gefahr durch Zombies!

use IO::Socket;

use constant MYPORT => 7123;
$sock = new IO::Socket::INET(LocalPort => MYPORT,
                     Reuse     => 1,
                     Listen    => 5)
    or die "can't create local socket: $@\n";

print "Accepting connections on Port ", MYPORT, "...\n";
while ($client = $sock->accept()) {
    # Eine Verbindung ist eingetroffen.
    # Finden wir erst heraus, mit wem wir es zu tun haben.
    print "Accepted connection from ",
          $client->peerhost(), ":", $client->peerport(), "\n";

    # Wir erzeugen nun einen Kindprozess und uebergeben ihm $client.
    if (fork() == 0) {
    # Das ist der Kindprozess.
    # Wir reagieren wie ein ohce, das alles umdreht:
    while (<$client>) {
        chomp;
        print $client scalar(reverse($_)), "\n";
    }
    exit 0;
    }
}