Hi I am using the following code

#! 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!";
}
[download]

here i am taking the input from the user and storing it in a variable $rn now i want to make the zip file with the name stored in the variable $rn.