sub reaper {
  my $deadChildPID = wait;
  print "Reaped child $deadChildPID\n";
}
$SIG{'CHLD'} = \&reaper;

# ..... some time later .....

if( $pid = fork() ) {
  # begin FORK section
} 



##</code><code>##

$SIG{CHLD}='IGNORE';