Use locale pragma instead of POSIX::setlocale()

Use locale pragma instead of POSIX::setlocale() #314