kepler:

You can do it with Archive::ZIP. Just traverse your directory tree and add the files to the ZIP file.

...roboticus

When your only tool is a hammer, all problems look like your thumb.