Select Code to Download

foreach my $file (@ARGV) {
   my $fh;
   open $fh, "<", $file or die "Can't open $file ($!)";
   push @filehandles,  $fh;
}