There is a snippet in Programming the Perl DBI. I'm not sure how up-to-date that is, but you may try:

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

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

flock $handle, LOCK_WHATEVER;
[download]

--
http://fruiture.de