use FindBin;
use File::Spec::Functions qw/updir catdir/;
use Cwd qw/abs_path/;
use lib abs_path( catdir( $FindBin::RealBin, updir, 'lib' ) );

# - or -

use FindBin;
use File::Spec::Functions qw/splitdir catdir/;
use lib do { my @p = splitdir $FindBin::RealBin;
	catdir @p[0 .. $#p-1], 'lib' };