Select Code to Download

"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;
}