Select Code to Download

unless (open (FH, "filename.ext")) {
    print STDERR "Cannot open file - ", $!, "\n";
...
while (<FH>) {
    ... your code follows ...
};