my $infile  = $ARGV[0];
my $outfile = $ARGV[1];
unless (@ARGV==2) { 
  die "Usage : perl $0 infile outfile\n" };

##</code><code>##

my $infile  = 'C:/Users/... /abc.txt';
my $outfile = 'C:/Users/... /output.txt';