use POSIX qw(WNOHANG);

      while ((my $kid = waitpid(-1, WNOHANG)) > 0) {
        warn "$kid reaped\n" if $trace;
        delete $kids{$kid};
      }