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


if ($hitsdb{$page}) {
	$key = "$Year$Month$hour$referer";
	print $key;
	
	if ($hitsdb{$page}->{$key}) {
		$hitsdb{$page}->{$key}->{'counter'}++;
		
		print "increment instance";
	}
	else {
		%hitsdb = (
			$page => {
				$key => {
					'year' => $Year,
					'month' => $Month,
					'day' =>  $month_day,
					'referer' => $referer,
					'counter' => 1
				}
			}
		);
		
		print "new instance";
	}
}
else {
	$key = "$Year$Month$hour$referer";
	print $key;
	%hitsdb = (
		$page => {
			$key => {
				'year' => $Year,
				'month' => $Month,
				'day' =>  $month_day,
				'referer' => $referer,
				'counter' => 1
			}
		}
	);
	
	print "new instance and page";
}