use CGI;
use Data::Dumper;
$q = new CGI;
print $q->header;
print '<pre>' . $q->escapeHTML(Data::Dumper::Dumper($q)) . '</pre>';