use warnings;
binmode STDOUT, ":utf8";
print "\x{44b}\n";

##</code><code>##

use Data::Dumper;
binmode STDOUT, ":utf8";
use PerlIO;
print Dumper [ PerlIO::get_layers \*STDOUT, output => 1 ];
__END__
$VAR1 = [
          'unix',
          'perlio',
          'utf8'
        ];


##</code><code>##

use open qw/:std :utf8/;
use open OUT => ':encoding(UTF-8)', ':std';

##</code><code>##

$VAR1 = [
          'unix',
          'perlio',
          'utf8',
          'encoding(utf-8-strict)',
          'utf8'
        ];