I think you can look up part two in Module::CoreList... part one follows (I have this in a file called "pm" and run it fairly frequently).

use strict;
use ExtUtils::Installed;

my $inst = new ExtUtils::Installed;
my @mods = $inst->modules;

my $max = 0; for (@mods) { $max = length $_ if length $_ > $max }

open OUT, "|less" or die $!;
for my $m (@mods) {
    print OUT sprintf('%-*s', $max, $m), ' v', $inst->version($m), "\n
+";
}
close OUT;
[download]