我的程序头。供参考
BEGIN {        # just get our modules directory set up of esbbs

      ($0 =~  && unshift(@INC, $1);
}

use lib ( './config'   ,
          '../ShareLib','../ShareLib/comm','../ShareLib/admin',
          './',
        );