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

See @ARGV, Getopt::Std, Getopt::Long.
For example, my $file = $ARGV[0] || die "Usage: $0 <file>\n";
Sorry if my advice was wrong.

In Section Seekers of Perl Wisdom