$Date::Manip::TZ = '-0800';
my $line = qq{1.2.3.4 - - [15/May/2003:01:05:02 -0600] "GET /foobar"};

my $date = '';

if ($line =~ /\[([^\]]+)\]/) {
    $date = $1;
}
my $tz = (split(/\s+/,$date))[1];

print "$date $tz\n";
my $secs = UnixDate(Date_ConvTZ(ParseDate($date),$tz,'GMT' ),"%s");
print "$secs\n";
print localtime($secs)."\n";