use strict;

use CDB_File;


my $cdb_file = 'test.cdb';
my $cdb = CDB_File->new($cdb_file, "$cdb_file.tmp") or die "Unable to create CDB file: $!";
while(1)
{
  $cdb->insert('leak', 1);
}