Mega Code Archive

 

Categories / Perl / CGI

 

Program to display CGI environment variables

use warnings; use strict; use CGI qw( :standard ); print header(), start_html( "Environment Variables" ); print '<table>'; foreach my $variable ( sort( keys %ENV ) ) {    print Tr( td( b( "$variable:" ) ),               td( i( $ENV{ $variable } ) ) ); } print '</table>', end_html();