while (!eof($fh)) {
    defined( $_ = <$fh> )
        or die("Can't readline: $!\n");

    ...
}