sub child_handler
{
  my $i;
  ++$i while -1 != waitpid -1, WNOHANG;
  print "Reaped $i children\n";
}