#!/bin/perl

use CGI qw/:standard/;

print header,
	start_html('Test'),
	h4('Environment'),
	"\n";

while (($k, $v) = each %ENV) {
	print "$k = $v <BR>\n";
}

if (@ARGV) {
  print "\n", hr, "\n", h4('Arguments'), "\n";

  foreach $a (@ARGV) {
  	print "$a <BR>\n";
  }
}

print "\n", hr, "\n", h4('Query parameters'), "\n";

foreach $a (param) {
	print "$a = ", param($a), "<BR>\n";
}

print p, end_html;