<TD BGCOLOR="$bgcolor">${font}<B>PERL compile version OS:</B></TD>
<TD>${font}$^O</TD>
</TR>
<TR>
<TD BGCOLOR="$bgcolor">${font}<B>GID</B>: <FONT SIZE=1>(If not blank, you are on a machine that supports membership in multiple groups simultaneously)</FONT></TD>
<TD>${font}$<</TD>
</TR>
<TR>
<TD VALIGN=TOP BGCOLOR="$bgcolor">${font}<B>Location of Perl:</B></TD>
<TD>${font}
~;
foreach $loc(@perlloc){
print "$loc<BR>\n";
}
print qq~
</TD>
</TR>
<TR>
<TD VALIGN=TOP BGCOLOR="$bgcolor">${font}<B>Location of Sendmail:</B></TD>
<TD>${font}
~;
foreach $ml(@mailloc){
print "$ml<BR>\n";
}
print qq~
</TD>
</TR>
<TR>
<TD VALIGN=TOP BGCOLOR="$bgcolor">${font} <B>Directory locations searched for perl executables</B></TD>
${font}The latest version of <B><FONT FACE="Courier New, mono">$program</FONT></B> can always be found on <A HREF="http://www.scriptsolutions.com/programs/free/perldiver/" TARGET="_blank">${dev}'s web site</A>.