Help for this page
print "<FORM METHOD=\"post\" ACTION=\"http://hostname/~user/cgi-bin/da +tabase/homepage.cgi\">"; ... +T TYPE=\"TEXT\" NAME=\"username\" SIZE=\"10\"></TD></TR><TR VALIGN=\" +baseline\"><TD VALIGN=\"baseli +ne\"><h3>Enter password</h3></TD> <TD><INPUT TYPE=\"password\" NAME=\ +"password\" SIZE=\"10\"></TD>< +/TR><TD><INPUT TYPE=\"SUBMIT\" value=\"Log in\"></TABLE></FORM>";
print start_form({ method => 'post', ... Tr( th( {colspan=>2}, submit('Login') ) ) ), end_form();