pmlist.pl

#!C:/Perl/bin/perl

use strict;
use warnings;
use utf8;
use ExtUtils::Installed;
use UNIVERSAL::require;

my @module_list = ExtUtils::Installed->new->modules;
my $max_len = length [ sort { length $b <=> length $a } @module_list ]->[0];

for my $module (@module_list) {
	no warnings 'uninitialized';
	eval { $module->require } or next;
	my $ver = $module->VERSION || '';
	printf "%-*s : %s\n", $max_len, $module, $ver;
}