Corrected for PerlIO::gzip module