$ perl -MDateTime -e 'print DateTime->now(time_zone=>"EST5EDT")->hour'
9