for (;;) {
  undef $!;
  unless (defined( $line = <> )) {
    die $! if $!;
    last; # reached EOF
  }
  # ...
}