Help for this page
use open ':std', ':locale';
my $enc = ...[ get encoding from locale ]...; binmode STDIN, ":encoding($enc)"; binmode STDOUT, ":encoding($enc)"; binmode STDERR, ":encoding($enc)";