#!/usr/bin/perl

use BerkeleyDB;
use strict;

my $env = new BerkeleyDB::Env
        -Config =>
                {DB_DATA_DIR => "/tmp",
                 DB_LOG_DIR => "/tmp",
                 DB_TMP_DIR => "/tmp"},
        -Verbose    => 1,
        -Flags => DB_CREATE
        -ErrFile    => *STDOUT
        ;


if (not defined($env)) {
       die "Database environment initialization failed: $!";
}