#!/usr/bin/perl --
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );
use Data::Dumper();

Main( @ARGV );
exit( 0 );

sub Dumper { scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump; }
sub Main {
    my $cgi = CGI->new();
    my @array = $cgi->param();
    
    print $cgi->header, $cgi->start_html;
    
    print '<table border=1><tr><td valign=top><pre>',
      $cgi->escapeHTML( Dumper( $cgi ) ),
      '</pre></td>';
    
    my $session = CGI::Session->new(undef, undef, {Directory=>'e:\tmp'});

    print '<td><pre>',
      $cgi->escapeHTML( Dumper( $cgi, $session ) ),
      '</pre></td></tr></table>';

print <<HTML_BLOCK;
				<form name='loginform' method='post' action='1.pl'>
				<input type='hidden' name='form' value='login'>
					<table>
						<tr>
							<td> UserName: </td>
							<td> <input type='text' name='username'> </td>
						</tr>
						<tr>
							<td> Password: </td>
							<td> <input type='password' name='password'> </td>
						</tr>
						<tr>
							<td> Environment: </td>
							<td>
								<select size=1 name='environment'>
									<option value="env1">env1</option>
									<option value="env2">env2</option>
								</select>
							</td>
						</tr>
						<tr>
							<td colspan=2 style='text-align=center'>
								<input type='submit' name='submit' value='Submit'>
								<input type='reset' name='reset' value='Reset'>
							</td>
						</tr>
					</table>
				</form>
HTML_BLOCK

    print $cgi->end_html;
}