21 lines
330 B
Perl
21 lines
330 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
use CGI;
|
||
|
|
|
||
|
|
$co = new CGI;
|
||
|
|
|
||
|
|
print
|
||
|
|
$co->header,
|
||
|
|
$co->start_html('CGI Environment Variables Example'),
|
||
|
|
|
||
|
|
$co->center($co->h1('CGI Environment Variables Example'));
|
||
|
|
|
||
|
|
foreach $key (sort keys %ENV) {
|
||
|
|
|
||
|
|
print $co->b("$key=>$ENV{$key}"),
|
||
|
|
$co->br;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
print $co->end_html;
|