programming-examples/perl/CGI/CGI environment variable.pl
2019-11-15 12:59:38 +01:00

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;