open IN, $infile or die "Can't open input file: $!";