use Dir::Pkg;
my $m = Dir::Pkg->new();