use Cwd qw(abs_path);
use File::Basename qw(dirname);

my $dirname = dirname(__FILE__);
my $db_dir_qfn = abs_path("$dirname/../db");

print "$db_dir_qfn\n";