#!/usr/bin/perl
dbmopen(%DB,"/usr/local/db/rocemabra.com/benchmark/db",undef);
print time," Before key scan: ",join(" - ",times),"\n";
@keys=grep(/^EVENTNAME/,keys %DB);
print time," After key scan: ",join(" - ",times),"\n";
$count=@keys;
print "$count keys scanned\n";
$count=0;
$key=shift(@keys);
while(@keys){
	$value=$DB{$key};
	$key=shift(@keys);
	next unless $key;
	$value=$DB{$key};
	$count++;
}
print time," After key access: ",join(" - ",times),"\n";
print "$count keys accessed\n";