$ perl -MData::Dumper -e "use CGI; my $q = CGI->new;print $q->header; print Dumper($q)"
Content-Type: text/html; charset=ISO-8859-1

$VAR1 = bless( {
                 '.header_printed' => '1',
                 '.charset' => 'ISO-8859-1',
                 '.parameters' => [],
                 '.fieldnames' => {}
               }, 'CGI' );