{local $/="\0"; () = <$fh>; print $.}