my $infile = $ARGV[0];