#!/usr/bin/perl
use DateTime;
use DateTime::Locale;
my $loc1 = DateTime::Locale->load('en_US');
my $loc2 = DateTime::Locale->load('de');
$date_en = DateTime->now(locale => 'en_GB',time_zone=>'Europe/London')
+;
$date_de = DateTime->now(locale => 'de_DE',time_zone=>'Europe/Berlin')
+;
$date_us = DateTime->now(locale => 'en_US', time_zone => 'America/Los_
+Angeles');
print "Date (UK) ",$date_en,"\n";
print "Date (Germany) ",$date_de,"\n";
print "Date (New York/US)",$date_us,"\n";
[download]