FindBin

Its usage is like:

 use FindBin;
 use lib "$FindBin::Bin/../lib";

or

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