$ perl -MDateTime -le 'print DateTime->now(time_zone => "EST")'
2006-07-17T04:37:59