require "config.txt";
my $refresh="60";
my $ip=$ENV{'REMOTE_ADDR'};
my $time=time;
open(FILE,$log) or die "Couldn't open $log: $!\n";
flock (FILE,3);
my @users=<FILE>;
close(FILE);

my %pages;
foreach my $line (@users){
  chomp($line);
    my ($ips,$times,$location)=split('×',$line);
    $pages{$location}++;
}

foreach my $loc (sort {$pages{$b} <=> $pages{$a}} keys %pages) {
  my $s = "s" unless $pages{$loc} == 1;
  print "$pages{$loc} user$s accessing $loc\n";
}
[download]