Definately have a look at MLDBM::Sync if you are using SDBM. It will handle locking for you.

From the docs:

This module wraps around the MLDBM interface, by handling concurrent access to MLDBM databases with file locking, and flushes i/o explicity per lock/unlock.