Select Code to Download

use strict;
use Date::Manip;
...
    my $time = Date_SecsSince1970($mon{$mon}, $d, $y, $h, $mn, $s) + $
+zf*$zsec;
    print "parsed time: ".localtime($time)."; original: $date $zone\n"
+;
}

(1.2.3.4, 15/May/2003:01:05:02, -0600, "GET /foobar")
Log date values: 5, 15, 2003, 01, 05, 02
*** ERROR ***>> Date_SecsSince1970(5, 15, 2003, 01, 05, 02) = Wed May 
+14 18:05:02 2003 <<***
parsed time: Wed May 14 12:05:02 2003; original: 15/May/2003:01:05:02 
+-0600