$fh = Compress::Zlib::gzdopen_ (fileno($fh),$mode,0) or &_drat;