#!/usr/bin/perl
use CGI qw/:standard/;
        
print header, 
  start_html,
  h2("Parameter:"), CGI::as_string(),
  h2("Environment:"),
  (map { p("$_ => $ENV{$_}") } sort keys %ENV),
  end_html;