my $infile = "ARGV[0]";