my $db = tie %hash, 'DB_File', ...;

my $fd = $db->fd();
open my $handle, "+<&=$fd" or die ...

flock $handle, LOCK_WHATEVER;