print $cgi->Dump;
	form
		login
	username
	
	password
	
	environment
		env1
	submit
		Submit

##</code><code>##

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

##</code><code>##

print $cgi->Dump;

##</code><code>##

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