#!/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;

##</code><code>##

#!/usr/bin/perl -w
use warnings;
use BerkeleyDB;
$|=1;

my $env=new BerkeleyDB::Env
    -Home=>'/home/www'
|| die;
my %hash;
my $db=tie(%hash,"BerkeleyDB::Btree",
	   -Filename=>"test.db",
	   -Env=>$env)
|| die;

my $k;
my $v;
my $cursor = $db->db_cursor();
while(1){
my $status=$cursor->c_get($k, $v, DB_NEXT);
if($status != 0){
	;
}
else{
print "$k\t$v\n";
}
}

untie $db;