Take a look at Compress::Zlib and Archive::ZIP. While they do not quite serve your purpose, you could wrap them with your own code to provide for your needs.