sub REAPER {
  my $stiff;
  while ($stiff=waitpid(-1,WNOHANG)>0) { $waitepid+=$stiff; }
}