D:\ENV>perl -MDateTime -e "print DateTime->new( year=>2000, day=>1, month=>1, hour=>12, time_zone=> 'America/Cancun' )->set_time_zone('America/Los_Angeles')->hour;"
10