#!/usr/local/bin/perl

use strict;
use warnings;

use POSIX qw(setlocale LC_ALL LC_CTYPE);

#my $loc = setlocale(LC_ALL, q{es_ES});
my $loc = setlocale(LC_ALL, q{es});

print $loc?$loc:q{undef}, qq{\n};

my $str = POSIX::strftime("%A, %B %d, %Y", gmtime);
print "$str\n";

##</code><code>##

undef
Thursday, August 14, 2008

##</code><code>##

my @ids = DateTime::Locale->ids();