use Module::InstalledVersion;
my $m = new Module::InstalledVersion 'Foo::Bar';
print "Version is $m->{version}\n";
print "Directory is $m->{dir}\n";