use CGI::Simple;
use Data::Dumper;

my $q = CGI::Simple->new();
my %input = $q->Vars;

print $q->header('text/plain');
print Dumper(\%input, \%ENV, \$q);