use FindBin; use File::Spec; my $work_dir = $FindBin::Bin; my $lib_dir = File::Spec->catdir($work_dir,'module'); # bei mir immer 'mylibs' statt 'module' unshift(@INC,$libdir);