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

##</code><code>##

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