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