Select Code to Download

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