sub reaper
{
   my $kid;
   while ( ( $kid = waitpid(-1, WNOHANG) >0 ) ){};
}