#Open database
dbmopen (%hitsdb,$db,0755) || print "can't dbmopen hitsb: $!";

$key = "$Year$Month$hour$referer";

if ($hitsdb{$page} || $hitsdb{$page}{$key}) {

	$hitsdb{$page}{$key}{'counter'}++;
	
	print "appended\n";
}
else {
	$hitsdb{$page}{$key} = {
				'year' => $Year,
				'month' => $Month,
				'day' =>  $month_day,
				'referer' => $referer,
				'counter' => 1
			};
	
	print "new instance and page\n";
}
		


#Close database
dbmclose (%hitsdb) || print "can't dbmclose hitsdb: $!";