#!/usr/bin/perl -w

use strict;
use DateTime;
use DateTime::TimeZone;
use DateTime::Format::MySQL;

my $somewhere_time = "2011-06-09 08:19:12"; # pacific time?
my $dt = DateTime::Format::MySQL->parse_datetime($somewhere_time);
   $dt->set_time_zone('UTC');
   $dt->set_time_zone('America/New_York');

print DateTime::Format::MySQL->format_datetime($dt),"\n";
# I should be expecting to get: 2011-06-09 10:19:12