use File::Spec; use File::Basename qw(dirname); use lib dirname( File::Spec->rel2abs($0) );