use Cwd 'abs_path'; use File::Basename; use lib dirname( abs_path $0 ); # Alternately, with the libraries given explicitely use Cwd; use File::Basename; use lib File::Basename::dirname( Cwd::abs_path( $0 ) );
use File::Basename; use File::Spec::Functions 'rel2abs'; use lib dirname(rel2abs($0));