open my $IN, '<', $filename or die $!;
binmode $IN, ':utf8';