#!/usr/bin/perl -w
use warnings;
use BerkeleyDB;
$|=1;
my $env=new BerkeleyDB::Env
    -Home=>'/home/y6cme/perl5',
    -Flags=>DB_CREATE|DB_INIT_MPOOL
|| die;
my %hash;
my $db=tie(%hash,"BerkeleyDB::Btree",
	   -Filename=>"test.db",
	  -Flags=>DB_CREATE,
	   -Env=>$env)
|| die;
for(1..10000){
	$hash{$_}=$_;
}
untie $db;
undef %hash;
my $db2=tie(%hash2,"BerkeleyDB::Btree",
	   -Filename=>"test.db",
	  -Flags=>DB_CREATE,
	   -Env=>$env)
|| die;
for(1..10000){
	$db2->db_del($_);
}
untie $db2;
undef %hash2;