my $q = CGI->new; 
print $cgi->header(), $q->dump, '<hr>', CGI->new( \%ENV )->Dump;