#!/usr/bin/perl
use strict;
use warnings;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);

my $directory = 'D:\WorkArena\Data\Final build';
my $obj = Archive::Zip->new();
$obj->addTree( $directory );
 
# Write the files to zip.
if ($obj->writeToFileNamed('dummy.zip') == AZ_OK) {  
  # write to disk
  print "Archive created successfully!";
} else {
  print "Error while Zipping !";
}
[download]