#!/usr/bin/perl -w
###########################################
# locales - show different locales
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use DateTime;
use DateTime::Format::Strptime;

my $dt = DateTime->now();

for my $locale (qw(en_GB en_US de_DE fr_FR
                   es_ES es_MX)) {

  $dt->set_locale($locale);

  my $format = 
    DateTime::Format::Strptime->new(
      pattern   => $dt->locale()->
                     long_datetime_format()
  );

  $dt->set_formatter($format);
  print "$locale: $dt\n";
}