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