$fh = Compress::Zlib::gzopen ($fh, $mode) or &_drat;