#....... irrelevant code not included...
} else {
    local $| = 1;
    while( ! waitpid( $pid, WNOHANG ) ) {
# ......