C:\>perl -e "use POSIX; print setlocale(LC_CTYPE)"