пытаюсь использовать локи
попытка захватить лок (db->cds_lock) приводит к тому что
выбрасывается исключение "CDS not enabled for this database"
База создается с флагами
DB_INIT_CDB | DB_INIT_MPOOL | DB_CREATE
База открывается инструкцией
BerkeleyDB::Hash->new( -Filename => $file )