print "<FORM METHOD=\"post\" ACTION=\"http://hostname/~user/cgi-bin/database/homepage.cgi\">";

print "<TABLE><TR VALIGN=\"baseline\"><TD VALIGN=\"baseline\"><h3>Enter user name</h3></TD><TD><INPU
+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>";

##</code><code>##

print start_form({
 method => 'post',
 action => 'http://hostname/.../homepage.cgi'
}),
 table(),
  Tr(
   th( {align=>'left'}, 'Enter Username:' ),
   td( textfield('username') )
  ),
  Tr(
   th( {align=>'left'}, 'Enter Password:' ),
   td( password_field('password') )
  ),
  Tr( th( {colspan=>2}, submit('Login') ) )
 ),
 end_form();