Select Code to Download

my @pids;
for loop {
...
# only parent reaches this point

kill 9, @pids; # perform mass filicide

use POSIX qw(:syswait_h);

while ((my $pid = waitpid(-1, WNOHANG)) != -1) {
  kill 9, $pid;
}