D:\>perl -MPOSIX -wle "$loc = POSIX::setlocale( &POSIX::LC_ALL, 'de' ); print $loc;"
Use of uninitialized value $loc in print at -e line 1.