en_US: Monday, February 13, 2006 17:57
  de_DE: Montag, Februar 13, 2006 17:57
  fr_FR: lundi, février 13, 2006 17:57
  es_ES: lunes, febrero 13, 2006 17:57

##</code><code>##

  use DateTime;
  use DateTime::Format::Strptime;

  my $dt = DateTime->now(
      time_zone => "America/Los_Angeles",
  );

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

    $dt->set_locale($locale);

    my $format =
      DateTime::Format::Strptime->new(
        pattern   => "%A, %B %d, %Y %H:%M",
    );

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

##</code><code>##

  en_GB: 13 February 2006 17:49:49 UTC
  en_US: February 13, 2006 5:49:49 PM UTC
  de_DE: 13. Februar 2006 17:49:49 UTC
  fr_FR: 13 février 2006 17:49:49 UTC
  es_ES: 13 de febrero de 2006 17:49:49 UTC
  es_MX: 13 de febrero de 2006  5:49:49 PM UTC

##</code><code>##

  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";
  }