use CPAN ();

for my $mod (CPAN::Shell->expand("Module","/./")){
  next unless $mod->inst_file;
  my $ver = $mod->inst_version
  print $mod->id, ":\t", defined $ver ? $ver : "UNDEF", "\n";
}