#!/usr/local/bin/perl
use strict;
use Date::Manip;

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

my $date = '';

if ($line =~ /\[([^\]]+)\]/) {
    $date = $1;
}

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