use strict;
use warnings;
use v5.10;
use POSIX qw(LC_ALL setlocale strftime);

my $locale = $ARGV[0];
say "$locale: ", POSIX::setlocale(LC_ALL, $locale);

my $march = strftime("%B", 0, 0, 0, 1, 2, 123);
say $march;

##</code><code>##

D:\pscrpt>perl try.pl de_DE.UTF-8
Use of uninitialized value in say at try.pl line 7.
de_DE.UTF-8:
March

##</code><code>##

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

##</code><code>##

C: March (5 bytes)