Select Code to Download

open my $fh, '<', $filename or die "$filename: $!";
while (<$fh>) {
...
        }
}
close $fh;

use warnings;
use strict;
...
            }
    } continue { close ARGV if eof }
}