#!/usr/bin/perl

open (INP,"/var/log/squid/access.log");
while (not eof(INP)) {
    ($logtime,$otherinfo)=split(/ /,<INP>,2);
    ($sec,$min,$hour,$day,$mon,$year,$tmp,$tmp,$tmp) =localtime($logtime);
    $mon+=1; $year+=1900;
    print"$year/$mon/$day $hour:$min:$sec $otherinfo";
}
