sub REAPER
{
  $waitedpid=wait;
  print "\nKilled $waitepid";
  $SIG{'CHLD'}=\&REAPER;
}

  $SIG{'CHLD'}=\&REAPER;