my $rundir; BEGIN { use File::Basename; $rundir = dirname($0); } use lib "$rundir/lib"; #### /any/old/random/place/script.pl /any/old/random/place/lib/Foo.pm