package Myapp::BerkeleyDB
use warnings;
use strict;

use base 'BerkeleyDB';
use BerkeleyDB;

# the following code apparently not working!!!
sub connect
{
    my ($class, $dbname) = @_;
    return new BerkeleyDB::Btree
               -Filename => $dbname,
               ......
         or undef;
}