tie $fh, 'IO::Zlib', $file, "rb";