I have a dir called foo, and in that I have lib and bin. The scripts in bin need stuff in lib. I do someth
foo
lib
bin
The standard FindBin module does what you want.
use FindBin; use lib "$FindBin::Bin/../lib";
perldoc FindBin for more.
perldoc FindBin