Mega Code Archive

 

Categories / Perl / CGI

 

CGI environment variable

#!/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;