Select Code to Download

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

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