I meant <> with the implicit ARGV which opens the series of files given as arguments to your program:

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

But what I want to do is:

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

Just lazy, I guess.