#!/usr/bin/perl -w
use warnings;
use BerkeleyDB;
$|=1;
my $env=new BerkeleyDB::Env
    -Home=>'/home/www',
    -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..30){
	$hash{$_}=$_;
	sleep 2;
}
untie $db;