#! usr/bin/perl

use Archive::Zip;

# Getting Details 
print "Enter the Folder Name \n";
$rn = <>;
print "The details are as follows: \n";
print "Release Name is *** $rn *** \n";
print "Business Unit is *** ABC *** \n";
print "Environment is *** ABC *** \n";

# Taking Backup 

my $zip_file = 'file.zip';

my $zip = Archive::Zip-> new (); 
$zip ->addTree( 'c:/zip'); 

$zip ->writeToFileNamed($zip_file); 
if (-e $zip_file) {
	print "Archive created successfully!";
}	else{
	print "Error in archive creation!";
}