# Copyright 1999-2012. Parallels IP Holdings GmbH. All Rights Reserved. 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 < HTML } print < HTML

Name	Value
$modules[$i]	$version