Select Code to Download

my $file=<>;

my $file = shift @ARGV;  # get first argument
my $nfile = shift @ARGV; # get next argument

my $file  = shift;
my $nfile = shift;

my ($file,$nfile) = @ARGV;

open FILE,">$file" or die "Can't open $file: $!"