use Modern::Perl;
use DateTime;

my $dt = DateTime->new(
    year      => 2011,
    month     => 1,
    day       => 7,
    hour      => 8,
    minute    => 59,
    second    => 54,
    time_zone => 'America/New_York',
);

say $dt->set_time_zone('GMT');