print p, startform,
      table ( { border => 1, cellspacing => 0, cellpadding => 2 },
        Tr ( th ( "UserID:" ), td ( textfield ( USERID ) ),
          td ( { rowspan => 2 }, submit ( "Login" ) ) ),
        Tr ( th ( "Password:" ), td ( password_field ( PASSWORD ) ) ) ),
      endform;