my $infile = $ARGV[0];
open(IN, '<' . $infile) or die $!;