#!f:/perl/bin/perl.exe
use strict;

my $LogFile='var/log/squid/access.log';

my %urls;
my ( $internal_ip, $link_visited, $site_visited, $link_date, $human_date, $minute, $hour, $cached_line );

open (FH,"<$LogFile") or die "Could not open $LogFile";

while(<FH>){
    if(!/^#/){
        ($internal_ip, $link_visited, $site_visited, $link_date, $human_date, $minute, $hour, $cached_line)=split;
        if ( defined ( $urls{$link_visited} ) ) {
            $urls{$link_visited}++;
        } else {
            $urls{$link_visited}=0;
        }
    }
}

close(FH);

foreach my $key ( sort ( keys ( %urls ) ) ) {
    print "$key:\t$urls{$key}\n";
}

exit;