Select Code to Download

Select or download this

print $cgi->Dump;
    form
...
        env1
    submit
        Submit

Select or download this

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' );

Select or download this
```
print $cgi->Dump;
```

Select or download this

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