--- SNIP ---
sub REAPER {
        my $child;
        while (($child = waitpid(-1, WNOHANG)) > 0) { print($? . "\n"); }
        $SIG{CHLD} = \&REAPER;
}

$SIG{CHLD} = \&REAPER;

while (my $client = $server -> accept())
{
        my $kidpid = fork();
        die('Can\'t fork: ' . $ERRNO) unless defined($kidpid);

        if (!$kidpid)
        {
           # Zeugs, das child ausfuehren soll, waehrend parent weiterloopen soll