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;