If you want an example of how to use Archive::Zip, I've got a script online at http://www.riotmod.com/linux/zip.pl that you can use to create/extract archives.