use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );
my $cgi = CGI->new();
my @array = $cgi->param();
print "CGI Form Data-->", "@array ", $cgi->param("environment"), "
";
print $cgi->Dump;
my $session = CGI::Session->new(undef, $cgi, {Directory=>'e:\tmp'});
print $cgi->escapeHTML( Data::Dumper::Dumper( $cgi ) ), "
";
print $cgi->escapeHTML( Data::Dumper::Dumper( $session ) ), "
";
print <
HTML_BLOCK