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();