Select Code to Download

open my $fh, shift or die "Cannot open file: $!\n";

# do all the assignments from ARGV here
my $filename = shift @ARGV or die "A filename parameter is required";
...
 ...
}
close FILE;

use Data::Dumper;
die Dumper \@ARGV;   # see what's really in there ...