Select Code to Download

foreach my $row (@$sections) {
   if (my $pid = fork) {
...
   my $pid = waitpid(-1, 0);
   delete $pids{$pid};
}