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
}