15 lines
356 B
Perl
15 lines
356 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use CGI::Pretty;
|
||
|
|
my $cgi=new CGI::Pretty;
|
||
|
|
|
||
|
|
print $cgi->header(),
|
||
|
|
$cgi->start_html("Environment Dumper"),
|
||
|
|
$cgi->table({-border=>1},
|
||
|
|
$cgi->Tr($cgi->th(["Parameter","Value"])),
|
||
|
|
map {
|
||
|
|
$cgi->Tr($cgi->td([$_,$ENV{$_}]))
|
||
|
|
} sort keys %ENV
|
||
|
|
),
|
||
|
|
$cgi->end_html();
|