1 until (-1 == waitpid(-1, WNOHANG));

##</code><code>##

sub reap {
  waitpid(-1);
  return $?;
}