while ( ! eof($fh) ) {
    defined( $_ = <$fh> ) or die Fudge("readline \$fh");
    ...
    }