Help for this page

Select Code to Download

Select or download this

$SIG{CHLD} = \&waitforchildren;

...

}

Select or download this

sub waitforchildren {
    my $cpid;
...
    }
    print " TRAPPED PIDS: $pidlist \n";   
}