in reply to Zip files while copying

Archive::Zip was very good for me. "addTree" will do work for you.

In Section Seekers of Perl Wisdom