Select Code to Download

sub ReadURLS {
  my ($queue,$filename) = @_;
...
  close $outFH;
  return 1;
}

my $nr_workers = 5; #set this value for the number of side by side dow
+nloaders and parsers. Better yet, take it as an argument
my $urlfile = "url_planets.txt"; # see comment about arguments
...
}

# At this point, barring some horrible catastrophe, the specified $out
+file should have the desired output.