Select Code to Download

sub reapchild
{
    while (waitpid(-1, &WNOHANG) > 0)
...
        pop @pids;
    }
}

sub reapchild
{
    my ($pid, $index);
...
        warn "Unexpected $pid returned!\n";
    }
}