use locale;
use POSIX qw/locale_h/;

my $encoding = setlocale(LC_CTYPE);
setlocale(LC_CTYPE, $encoding);