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"), " ";
my $session = CGI::Session->new(undef, undef, {Directory=>'e:\tmp'});
print <
HTML_BLOCK
print <