open F, "production.log" or die "unable to open pl";
while (<F>) {
	if ($_ =~ /(\w+)Controller#(\w+).*for ([\d.]+)/)
		{$hits{$1}+=1};
#		{print "$1 $2 $3\n"};
}
#print keys %hits;
#print "\n", values %hits, "\n"
foreach $page (keys %hits) {
	print "$page : $hits{$page} \n"
}