#!/usr/bin/perl

print "Content-type:text/html\n\n";

open(READ,"cat rawrefer.log |");
#open(READ,"tail -500 rawrefer.log |");

while(defined($next=<READ>)){
    chomp $next;
    $count{$next}++;
}


foreach $thing (sort {$count{$b} <=> $count{$a}} keys %count){
    print<<__EOQ__;
    $count{$thing}::<a href="$thing">$thing</a>
<br><br>
__EOQ__
}