Yes, the problem is something else... basically it is how to find a file relative to a .pm file

From within the module,

use Cwd                   qw( realpath );
use File::Basename        qw( dirname );
use File::Spec::Functions qw( catdir );

my $module_dir_qfn = dirname(realpath(__FILE__));
my $db_dir_qfn     = catdir($module_dir_qfn, 'db');
[download]

Update: Updated to use OP's dir name.

Hmmm... I didn't try that... what worked for me is the somewhat more cumbersome:

my $db_path = '';
for (keys %INC) {
    if (/parse/i) {
        $db_path = $INC{$_};
        $db_path =~ s/parse\.pm$/db\//i;
        last;
    }
}
[download]

Since the .pm requires the other file it can be found in the %INC hash and the rest follows from that. I'll take a look at your approach since it is more concise than mine.

--hsm

"Never try to teach a pig to sing...it wastes your time and it annoys the pig."