calling zip from perl

I know how to zip files from the command line, but how can I call the zip command with perl to create a custom zip file on the fly?

Either us Archive::Zip or something like this:
my @args =
('/usr/bin/zip',ArgumentsToZip,DestFile,FilesToZip);
my $result = system(@args);

Then check $result to see if it succeeded.
I usually use -j as an argument to strip off the path for the zipped files.

Hope this helps.


<BLOCKQUOTE><font size="1" face="Verdana,Arial,Helvetica">quote:</font><HR>Originally posted by bshold:
I know how to zip files from the command line, but how can I call the zip command with perl to create a custom zip file on the fly?[/quote]