Hmm, ok, not as revealing as I would have hoped because I made a mistake. Try this instead 
#!/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)->Dum
+p; }
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' val
+ue='Submit'>
                                <input type='reset' name='reset' value
+='Reset'>
                            </td>
                        </tr>
                    </table>
                </form>
HTML_BLOCK

    print $cgi->end_html;
}

[download]

In reply to Re^3: Form Data inaccessible after establishing session by Anonymous Monk
in thread Form Data inaccessible after establishing session by SitrucHtims

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.