Help for this page
"my" variable $M masks earlier declaration in same scope at a.pl line +8. Global symbol "$dt" requires explicit package name at a.pl line 9. Global symbol "$dt" requires explicit package name at a.pl line 10. Global symbol "$dt" requires explicit package name at a.pl line 12. Execution of a.pl aborted due to compilation errors.
sub fromGMT { my ($date, $hms) = @_; my ($Y, $m, $d) = unpack('A4A2A2',$date); ... $dt->set_time_zone('America/Chicago'); return $dt->hms; }