use FindBin; BEGIN { unshift @INC, "$FindBin::Bin/../lib" } #### use Cwd 'abs_path'; BEGIN { unshift @INC, abs_path("$0/../../lib") }