#!/usr/bin/perl 

use strict;
use warnings;
use CPAN;
use Module::CoreList;

my $d = shift @ARGV;
my @d = Module::CoreList->find_modules(qr/^$d$/);
my(@matches) =  grep(($_ eq $d), @d);   
if (@matches) {
     for $d (CPAN::Shell->expand("Module", "$d")) {
     print 
     "\n\tmodule: ",
     $d->id, "\n",
     "\tauthor: ",
     $d->cpan_userid, "\n",     
     "\tcurrent version: ", 
     $d->cpan_version, "\n",
     "\tinstalled version: ", 
     $d->inst_version, "\n";
     }
}
else {
     for $d (CPAN::Shell->expand("Module", $d)) {
     print 
     "\n\tmodule: ",
     $d->id, "\n",
     "\tauthor: ",
     $d->cpan_userid, "\n",
     "\tThe current version is: ",
     $d->cpan_version, "\n",
     "\tinstalled version: ",
     $d->inst_version, "\n";
     }
}