sub REAPER 
{
   my $pid;
   while ($pid = waitpid(-1, WNOHANG) > 0)
   {
      print "Process $pid exited.\n";
      push @dead_kids, $pid;
   }
}