Select Code to Download

my ($file_listing_pcs) = @ARGV;

...
  # munge it about
  return($data_ref);
}

my @pids;
while (<$file>) {
...
 $_->join for @pids;

#data profit?