$SIG{CHLD}=\&reaper;

   ...

   sub reaper
   {
      1 while waitpid -1,&POSIX::WNOHANG != -1;
      $SIG{CHLD}=\&reaper;
   }