perl 打开gz压缩文件 输出gz压缩文件