unless (defined( $line = <> )) {
      die $! if $!;      # $! is only current and valid in the aftermath of a failure
      last; # reached EOF
 }