#!/usr/bin/perl -wT
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use CGI qw(:standard);
use strict;

print header;
print start_html("Login");

my $page = $ENV{QUERY_STRING};

print <<EndHTML;
<form action="login2.cgi" method="POST">

Please enter your login name and password. If you're a new member,
<a href="/register2.html">click here</a> to register.<p>
<input type="hidden" name="page" value="$page">

username: <input type="text" name="username" size=10><br>
password: <input type="password" name="password" size=10><p>

Be sure you have cookies turned on in your browser.<p>

<input type="submit" value="Log In">

</form>
EndHTML

print end_html;