use File::Basename qw(dirname); use lib dirname(__FILE__);