Below is a pretty way to display the values in a web page
Enjoy!
Barry
print <<EOD;
Content-Type: text/html
<HTML>
<BODY>
EOD
my %system = ();
$system{PROCESS_ID} = "$$";
$system{REAL_USER_ID} = "$<";
$system{EFFECTIVE_USER_ID} = "$>";
$system{REAL_GROUP_ID} = "$(";
$system{EFFECTIVE_GROUP_ID} = "$)";
$system{PROGRAM_NAME} = "$0";
$system{PERL_VERSION} = "$]";
$system{DEBUGGING} = "$^D";
$system{SYSTEM_FD_MAX} = "$^F";
$system{HINTS} = "$^H";
$system{OSNAME} = "$^O";
$system{PERLDB} = "$^P";
$system{BASETIME} = "$^T";
$system{WARNING} = "$^W";
$system{EXECUTABLE_NAME} = "$^X";
print '<table align=center border=10 bordercolor="#0000aa" cellspacing=0
cellpadding=5>'."\n";
foreach (sort keys %system) {
print "<tr><td align=center>$_</td><td>$system{$_}</td></tr>\n";
}
foreach (sort keys %ENV) {
print "<tr><td align=center>$_</td><td>$ENV{$_}</td></tr>";
}
print <<EOD;
</table>
</BODY>
</HTML>
EOD
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
