use FindBin qw($RealBin); use File::Spec::Functions qw(catdir); BEGIN { my @dirs = splitdir(canonpath($RealBin)); my($path) = grep { -e $_ } ( map { $_ = catdir(@dirs[0 .. $#dirs - $_]).'pathtoModule' } (0 .. $#dirs) ); unshift(@INC, $RealBin, $path); }