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');