sub fromGMT { my ($date, $hms) = @_;
   my ($Y, $m, $d) = unpack('A4A2A2',$date);  
   my ($H, $M, $S) = $hms =~ m/^(\d+):(\d+)(?::(\d+))?/; $S ||= 0;  
   my $dt = DateTime->new(
      year=>$Y, month=>$m,  day=>$d,
      hour=>$H, minute=>$M, second=>$S,
      time_zone=>'GMT'
   );
   $dt->set_time_zone('America/Chicago'); 
   return $dt->hms;
}