sub sigchldHandler {
 while (0 < (my $child = wait())) {
  print STDOUT2 "closed Child: ".$child."\n";
 }
}

$SIG{CHLD} = \&sigchldHandler;