#!/usr/bin/perl --
use strict; use warnings; use Data::Dump;
use BerkeleyDB;

for my $opts ( [], [-Flags  => DB_CREATE| DB_INIT_CDB | DB_INIT_MPOOL] ){
    my $env = BerkeleyDB::Env->new(
        -Home => './home',
        @$opts,
    ) or warn "cannot open environment: $BerkeleyDB::Error\n";
    dd $env, [ glob './home/*' ];
}
__END__