in reply to Renaming a Zip file with a user input variable

shift, then call your script with the file name as an argument. 
my $zip_file = shift;

[download]

In Section Seekers of Perl Wisdom