#!/usr/bin/perl

use CGI;
use Data::Dumper;

my $q = CGI->new;
%v = $q->Vars;

print $q->header;
print "<pre>\n";
print Dumper(\%v), "\n";
print Dumper(\%ENV), "\n";
print "</pre>";