#!/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;