use BerkeleyDB;

$create = ! -f 'data.dbm';

$db = new BerkeleyDB::Btree ( 
	-Filename => 'data.dbm', 
	-Flags => DB_CREATE ) 
	or die "Cannot open file: $!";

if ( $create )
{
	for ( my $i = 1; $i <= 100000; $i++ )
	{
		$db->db_put ( $i, "data" x 1000 );
	}
}

$cursor = $db->db_cursor ( );

@keys = ( );
$key = 0;
$value = 0;
$status;

for ( 
	   $status = $cursor->c_get ( $key, $value, DB_FIRST );
	   $status == 0;
	   $status = $cursor->c_get ( $key, $value, DB_NEXT ) ) 
{
	push @keys, $key;
}

$cursor->c_close ( );
$db->db_close ( );

print ( $#keys + 1 ) . "\n";