while (defined (my $rc = waitpid(-1, &WNOHANG))) {
    #some child has finished
}