in reply to function for ZIP file creation

Have a look at Archive::Zip. If I remember correctly, this module is installed by default with the ActiveState distribution of Perl.

In Section Seekers of Perl Wisdom