1. for (;;) {
   2.    undef $!;
   3.    unless (defined( $line = <> )) {
   4.        last if eof;
   5.        die $! if $!;
   6.    }
   7.    # ...
   8. }