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

##</code><code>##

my $enc = ...[ get encoding from locale ]...;
binmode STDIN,  ":encoding($enc)";
binmode STDOUT, ":encoding($enc)";
binmode STDERR, ":encoding($enc)";