Select Code to Download

foreach my $file (@ARGV) {
    open my $fh, $file or warn("Cannot open file $file: $!\n"), next;
...
        # process file
    }
}