18 lines
287 B
Perl
18 lines
287 B
Perl
#!/usr/local/ActivePerl-5.6/bin/perl -w
|
|
#
|
|
# env.pl
|
|
#
|
|
# This script dumps the environment variables in HTML format
|
|
|
|
use strict;
|
|
use warnings;
|
|
$|=1;
|
|
|
|
print "Content-type:text/html\n\n";
|
|
|
|
foreach my $var (sort keys %ENV) {
|
|
print $var . "=" . $ENV{$var} . "<br>\n";
|
|
}
|
|
|
|
|