This really simple little CGI script allows you to get a sorted, HTML escaped list of your environment variables. Gotta love CGI.pm! Try running this under mod_perl for extra excitement!

#!/usr/bin/perl
use strict;
use CGI;
my $q=CGI->new();
print 
    $q->header(),
    $q->start_html(-title=>'About this Server'),
    $q->h1('About this Server'),
    $q->hr()."<table>";

my @env=sort keys %ENV;

my $output;
foreach (@env){ 
    $output.= $q->Tr([
		      $q->td([
			      $q->escapeHTML($_),$q->escapeHTML($ENV{$_})
			      ])
		      ]);
}

print 
    $output."</table>",
    $q->end_html(); 

Discuss this Article!
View Responses (0)	Post Response