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

##</code><code>##

while (($child = waitpid(-1,WNOHANG)) > 0) {
    $Kid_Status{$child} = $?;
}