use POSIX qw(locale_h);
                                                                                
foreach my $locale (qw(en_GB de_DE fr_FR es_ES))
{
   POSIX::setlocale(LC_TIME,$locale);
   print POSIX::strftime("%a\n", localtime);
}