Select Code to Download

#!/usr/local/bin/perl
use strict;
...
print "$secs\n";
print localtime($secs)."\n";

$Date::Manip::TZ = '-0800';
my $line = qq{1.2.3.4 - - [15/May/2003:01:05:02 -0600] "GET /foobar"};
...
my $secs = UnixDate(Date_ConvTZ(ParseDate($date),$tz,'GMT' ),"%s");
print "$secs\n";
print localtime($secs)."\n";