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