use File::Spec; use FindBin; unshift(@INC, File::Spec->catdir($FindBin::Bin,'mylibs'));