#!/usr/bin/perl -w
use strict;
use CGI ":standard";
print header,
      start_html('CGI Environment Dump'),
      h2('CGI Environment Dump'),
      table({-border=>1},
            Tr([map td(["$_", "$ENV{$_}"]),
                    sort keys %ENV])),
      end_html;