use strict;
                                                                                       
use BerkeleyDB; our %Session = ();
use Fcntl qw( :flock );

my $DBHome = "/home/FlexBase/";
system("rm /home/FlexBase/*");        ## Temporary for testing
our $filename = "/home/FlexBase/TestBDB";

use constant CACHE  => '1048576';
my $Cachesize = CACHE;
our $env = new BerkeleyDB::Env ( 
    -Home       => '/home/FlexBase',
    -Cachesize  => CACHE,
    -Flags      => DB_INIT_MPOOL|DB_INIT_CDB|DB_CREATE )
    or die "cannot open ENV: $! $BerkeleyDB::Error\n";

our %Pyr = ();
our $db1 = tie %Pyr, 'BerkeleyDB::Btree', (
    -Filename        => "$filename",
    -Env             => $env,
#    -Pagesize       => 4096,            ## Use of this makes the BerkeleyDB operate worst!
    -Flags            => DB_CREATE );