createzip.pl

#!/usr/bin/perl
use strict;
## use this for any help --> http://search.cpan.org/~adamk/Archive-Zip-1.28/lib/Archive/Zip.pm
use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); # we are using the Archive::Zip module, if its not there download it using ppm
my $zipfile = "abc.zip"; # name of the zip file
my @files = qw( a b c ); # list of files to be zipped
my $zip = Archive::Zip->new(); # just creating the object
foreach (@files)
{
    $zip->addFile($_); # adding individual files from @files
}
$zip->writeToFileNamed($zipfile); # writing $filename to the