Select Code to Download

# And maintain the population.
while (1) {
...
        make_new_child();           # top up the child pool
    }
}

# And maintain the population.
while ((my $pid = waitpid(-1)) > 0) {
...
  delete $children{$pid};
  make_new_child()
}