#!/usr/bin/perl use CGI; use JSON; my $q = CGI->new; my %headers = map { $_ => $q->http($_) } $q->http(); my %params = map { $_ => $q->param($_) } $q->param(); my %environ = map { ($_, $ENV{$_}) } grep { ! /ROOT|PATH|REMOTE|FILENAME|SERVER|SSL/ } keys %ENV; print <

@{[ JSON->new->pretty->canonical->encode({ 
	headers => \%headers, 
	params => \%params, 
	environ => \%environ, 
}) ]}

HTML