use ExtUtils::Installed; my ($inst) = ExtUtils::Installed->new(); my (@modules) = $inst->modules(); print "Content-type: text/html", "\n\n"; print <\n END_of_Multiline_Text for (my $i=0; $iversion($modules[$i]) || "???"; my $class = ($i % 2) ? "alt" : "normal"; print "\n"; print "\n"; } print "
NameVersion
$modules[$i]$version
";