use POSIX qw(locale_h);

##</code><code>##

my $locale = setlocale(LC_CTYPE);