Select Code to Download

for (my $i = 0; $i < $num; $i++) {
   print "$ARGV[$i]\n";
...
   }
   close FH || die "Cant open: $!";
}

print join (@out,"\n");