my $infile =  $ARGV[0];
my $outfile =  $ARGV[1];