#!perl -w
use strict;

use DateTime::Format::CLDR;

my $datetimestring = "4/5/13 16:09";

my $cldr1 = new DateTime::Format::CLDR(
    pattern     => 'M/d/yy HH:mm',
    time_zone   => 'America/New_York',
);
    
my $dt1 = $cldr1->parse_datetime($datetimestring);

print $cldr1->format_datetime($dt1), "\n";

my $cldr2 = new DateTime::Format::CLDR(
    pattern     => 'MMMM dd yyyy HH:mm:ss',
    locale      => 'en_US',
    time_zone   => 'America/New_York',
);

$dt1->set_time_zone('GMT');

print $cldr2->format_datetime($dt1), " GMT\n";