Select Code to Download

sub reap_child {
   while ( (my $child = waitpid(-1,WHNOHANG)) > 0) {
...
      delete $CHILDREN{$child};
   }
}

sub kill_children {
   kill TERM => keys %CHILDREN;
   sleep while %CHILDREN;
}