if($ENV{'REQUEST_METHOD'} eq 'GET') { $query=$ENV{'QUERY_STRING'} }
elsif($ENV{'REQUEST_METHOD'} eq 'POST') {  sysread STDIN,$query,$ENV{'CONTENT_LENGTH'} }
else { print 'Unsupport method: '.$ENV{'REQUEST_METHOD'}.'!!!'; }

##</code><code>##

use CGI;

my $q = CGI->new();

if(defined $q->param('submit')) {
    my $user = $q->param('user_name');
    my $pass = $q->param('user_password');
} else {
    print "Content-type: text/html\n\n";
    print <<END;
    <table>
    <form method='POST'>
        <tr><td>User name:</td><td><input type='text' name='user_name'></td></tr>
        <tr><td>Password:</td><td><input type='password' name='user_password'></td></tr>
        <tr><td colspan=2><input type='submit' name='submit' value=' Login '></td></tr>
    </form> 
    </table>
END
}