use CGI();
my $q = CGI->new;
print $q->header, $q->header, $q->Dump;
__END__