use ExtUtils::Installed; my ($inst) = ExtUtils::Installed->new(); my (@modules) = $inst->modules(); print < HTML for my $i ($[ .. $#modules) { my $version = $inst->version($modules[$i]) || "???"; my $class = ($i % 2) ? "alt" : "normal"; print <
Name Value
HTML } print <
$modules[$i] $version
HTML