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