#!/usr/bin/perl -w
use strict;
use warnings;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
 
my $directory = 'D:\WorkArena\Data\Final build ';
my $obj = Archive::Zip->new();

#Open Dir, Read it and Close it.
opendir (DIR, $directory) or die $!;
my @filearray = readdir(DIR);
close(DIR);

#Add the files from the array to $obj
foreach my $file(@filearray)
{
	$obj->addFile($file);   # add files
}

#Write the files to zip.
if ($obj->writeToFileNamed('dummy.zip') == AZ_OK) 
{  # write to disk
	print "Archive created successfully!";
} 
else 
{
	print "Error while Zipping !";
}