use File::Spec::Functions qw(rel2abs); use lib rel2abs($0);