use Module::Locate 'locate';

die "Usage: $0 MODULE\n" unless @ARGV;

my $mod = shift @ARGV;
my $path;

if(eval{ require( $path = locate $mod ) }) {
  die "$mod missing version number\n"
    unless $mod->VERSION;

  print "$mod version ", $mod->VERSION, " installed at $path\n";
} else {
  die "$mod not installed\n";
}
[download]