print $cgi->escapeHTML( Data::Dumper::Dumper( $cgi , $session ) );
	$VAR1 = bless( { '.parameters' => [], 'use_tempfile' => 1, '.charset' => 'ISO-8859-1', '.fieldnames' => {}, 'param' => {}, 'escape' => 1 }, 'CGI' );