Select Code to Download

 foreach my $i (0..$#tmp) {
      # Forks and returns the pid for the child:
...
        next;
        };
}

  my $filename = $tmp[$i]->filename();

...
        last unless defined($line);
        chomp $line;
        my ($dir, $file) = split(/\t/, $line);

        $process->($dir, $file, $config, $log);
}
      $pm->finish; # Terminates the child process