use Data::Dumper;
my $r = Apache->request();
$r->send_http_header('text/plain');
print Dumper \%ENV;