binmode STDIN,  ":utf8";
binmode STDOUT, ":utf8";

##</code><code>##

binmode STDIN,  ":encoding(UTF-8)";
binmode STDOUT, ":encoding(UTF-8)";
binmode STDERR, ":encoding(UTF-8)";

##</code><code>##

use open ':std', ':encoding(UTF-8)';

##</code><code>##

use open ':std', ':locale';

##</code><code>##

open(IN, "<utf8", "sample.txt");

##</code><code>##

open(IN, "<:encoding(UTF-8)", "sample.txt");

##</code><code>##

use open IO => ':encoding(UTF-8)';

##</code><code>##

use open IO => ':locale';

##</code><code>##

use utf8;