use POSIX::setlocale to control $!
Set locale via POSIX::setlocale