##
sub REAPER {
my $waitedpid = wait;
$SIG{CHLD} = \&REAPER;
}
##
##
if( $pid = fork ) {
print "Forking off to $pid\n";
##
##
if( $pid = fork ) {
$SIG{CHLD} = \&REAPER;
print "Forking off to $pid\n";