#!/usr/bin/perl -w

use strict;

use BerkeleyDB;
use Data::Dumper;

my $env = new BerkeleyDB::Env( -Home => '/home/steve/test',
			       -Flags => DB_CREATE | DB_INIT_CDB | DB_INIT_MPOOL )
  || die "env error: $! $BerkeleyDB::Error";

my $db = (tie my %hash, 'BerkeleyDB::Hash', 
       -Filename => 'db2.bdb',
       -Env => $env,
       -Flags => DB_CREATE)
  || die "db error: $! $BerkeleyDB::Error";

while (<>) {

  $hash{$1} = $2 if (/(.*)=(.*)/);

  print Dumper \%hash;
}

undef $db;
untie %hash;