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