#!/usr/bin/perl -w
use strict;
use DateTime;
use DateTime::Format::Strptime;

my $dt = DateTime->now();

for my $locale (qw(en_AU 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";
}