12 lines
314 B
Perl
12 lines
314 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
print "Content-type: text/html\n\n";
|
||
|
|
print "<html><head><title>Environment Dumper </title></head><body>";
|
||
|
|
print "<center><table border=1>";
|
||
|
|
foreach (sort keys %ENV) {
|
||
|
|
print "<tr><td>$_</td><td>$ENV{$_}</td></tr>"
|
||
|
|
}
|
||
|
|
print "</table></center></body></html>";
|