open (IN,'<:crlf', $infile) or die "Cannot open $infile";