sub apache2epoch
{
use POSIX;
        my $i=0;
        my %months;
        %months = map { $_ => $i++ } ("Jan","Feb","Mar","Apr","May","Jun",                          "Jul","Aug","Sep","Oct","Nov","Dec");
 $_[0] =~ m((\d+)/(\w+)/(\d+):(\d+):(\d+):(\d+));
 return &mktime($6,$5,$4,$1,$months{$2},$3-1900,0,0,-1);
}