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