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;