$r = waitpid($pid, WNOHANG) and last;