use File::Spec::Functions qw(rel2abs); use lib rel2abs(tools/DBQuery), rel2abs(tools/ToolLog);