Select Code to Download

    while (<>) {
        ...          # code for each line
    }

    @ARGV = ('-') unless @ARGV;
    while ($ARGV = shift) {
...
            ...          # code for each line
        }
    }