return new BerkeleyDB::Btree
               -Filename => $dbname,
               ......

##</code><code>##

  return $class->SUPER::new( ... )