my $file=<>;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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