my $fh = IO::File->new;
$fh->open('utf8file.txt', 'r') or die $!;
# $fh->open($file, O_RDONLY) or die $S;
$fh->binmode(":utf8");
read($fh, my $content, -s $fh);
$fh->close;