in reply to ZIP algorithm for perl?

See Archive::Zip It should do what you're looking for.