Select Code to Download

for my $file (@ARGV ? @ARGV : '-') {
    my $fh;
...
    }
    while (<$fh>) { do_whatever( $_ ) }
}