use POSIX ":sys_wait_h";
#...
do {
    $kid = waitpid(-1,&WNOHANG);
} until $kid == -1;

##</code><code>##

$pid = POSIX::waitpid( -1, &POSIX::WNOHANG );
print "status = ", ($? / 256), "\n";