<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># Copyright 1999-2016. Parallels IP Holdings GmbH. All Rights Reserved.
use ExtUtils::Installed;
my ($inst) = ExtUtils::Installed-&gt;new();
my (@modules) = $inst-&gt;modules();

print &lt;&lt;HTML;
Content-type: text/html

&lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"&gt;
&lt;html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"&gt;
&lt;head&gt;
&lt;title&gt;&lt;/title&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8" /&gt;
&lt;link rel="stylesheet" type="text/css" href="../../css/style.css" /&gt;
&lt;/head&gt;
&lt;body class="test-data"&gt;
&lt;table cellspacing="0" cellpadding="0" border="0"&gt;
&lt;tr class="subhead" align="Left"&gt;&lt;th&gt;Name&lt;/th&gt;&lt;th&gt;Value&lt;/th&gt;&lt;/tr&gt;
HTML

for my $i ($[ .. $#modules) {
   my $version = $inst-&gt;version($modules[$i]) || "???";
   my $class = ($i % 2) ? "alt" : "normal";
   print &lt;&lt;HTML;
&lt;tr class="$class"&gt;&lt;td valign="top"&gt;$modules[$i]&lt;/td&gt;&lt;td&gt;$version&lt;/td&gt;&lt;/tr&gt;
HTML
}

print &lt;&lt;HTML;
&lt;/table&gt;
&lt;/body&gt;
&lt;/html&gt;
HTML
</pre></body></html>