Select Code to Download

$ perl -MDateTime -e 'print DateTime->now(timezone=>"EST5EDT")->hour'
Found extra parameters passed to _check_named_from_epoch_params: [time
+zone]
...
DateTime::_check_named_from_epoch_params('epoch', 1680269935, 'timezon
+e', 'EST5EDT') called at /usr/local/lib64/perl5/DateTime.pm line 493
DateTime::from_epoch('DateTime', 'epoch', 1680269935, 'timezone', 'EST
+5EDT') called at /usr/local/lib64/perl5/DateTime.pm line 545
DateTime::now('DateTime', 'timezone', 'EST5EDT') called at -e line 1

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