#!/usr/bin/perl

use strict;
use warnings;

use BerkeleyDB;

my $db_file = '/home/snowhare/perl_monks/example.db';
unlink $db_file;

my $db    = BerkeleyDB::Btree->new( -Filename  => $db_file,
                                    -Cachesize => 700_000_000,
                                    -Flags     => DB_CREATE,
                             );  
srand;
for(my $count = 0; $count < 12_000_000; $count++) {
        my $random_value = rand(16776216);
        my $status = $db->db_put( "$random_value" => "$count" );
}
undef $db;


[snowhare@blue-bay perl_monks]$ time ./big_btree.pl 

real    3m47.121s
user    3m7.978s
sys     0m4.884s