Select Code to Download

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

  use open IN => ':raw';
  while (<>) {
     # code for each line
  }