use POSIX ();
$SIG{CHLD} = \&sig_chld;
sub sig_chld {
  1 while (waitpid(-1, POSIX::WNOHANG()) > 0);
  $SIG{CHLD} = \&sig_chld;
}