FindBinモジュールの変数$Binにディレクトリが格納されるそうだ．
次のように使える．

use FindBin qw($Bin);
use lib "$Bin/../lib";