#!/usr/bin/perl
use Apache;
my $r = Apache->request;
$r->content_type("text/html");
$r->send_http_header;
foreach my $key (keys %ENV) {
	print "$key: $ENV{$key}<br />\n";
}