Hi all, I am trying to rename a zip file with the user input. I have tried but when i am giving the variable its making a file with the vairiable name only like $abc not with the value stored in the variable.

#!/bin/perl

use strict;
use warnings ; 
use Archive::Zip; 

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]

Instead of $zip_file being hardcoded i want to take user input for the zip file name. 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.