#!/usr/bin/perl
use warnings;
use strict;
use CGI::Pretty;
my $cgi=new CGI::Pretty;

print $cgi->header(),
      $cgi->start_html("Environment Dumper"),
      $cgi->table({-border=>1},
      $cgi->Tr($cgi->th(["Parameter","Value"])),
      map {
          $cgi->Tr($cgi->td([$_,$ENV{$_}]))
     } sort keys %ENV
     ),
     $cgi->end_html();