use File::Basename qw(dirname); use Cwd qw(abs_path); use lib dirname(dirname abs_path $0); #### use FindBin; use lib $FindBin::Bin;