use strict;
use warnings ‘all’;
use File::Copy::Recursive;
use Archive::Zip;
use constant AZ_OK =>0;
my $mkvingestdir = “//nas/data/nonops/common/engine/ingest/sim/mkv”;
my $mkvingestdest = “//nas/shared/group/test/mkv/ingest”;
File::Copy::Recursive::dircopy $mkvingestdir, $mkvingestdest or die “Copy failed: $!\n”;

my $mkvingestzip = Archive::Zip->new();
my $mkvingestzipdest = “//nas/shared/group/test/mkv”;

$mkvingestzip ->addTree($mkvingestdest);
if ($mkvingestzip->writeToFileNamed(‘ingest.zip’) != AZ_OK) {
	print “Error in archive creation!\n”;
} else {
	print “Archive created successfully!\n”;
}