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


##</code><code>##

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