Also, please note that dbmopen is a deprecated feature, and may well disappear in a future Perl release. There are already platforms which do not support it - VMS for example.
You should look to use tie instead, and the module AnyDBM_File which comes in the core distribution. See perldoc perltie for more on tie.
Comment on Re: dbmopen - if db file do this else do that