open(FH, "< $file") or die $!;
binmode FH, ":utf8";