print start_form(), table( Tr(Td( "Email Address: ") Td(textfield('usermail')), Tr(Td("Author: ") Td(textfield('author')), Tr(Td("Distributor: ") Td(textfield('distributor')), Tr(Td("Copyright: "),textfield('copyright')), Tr(Td("Abstract: ") Td(textfield('abstract')), Tr(Td("Keywords: ") Td(textarea(-name=>'keywords', -rows=>10, -columns=>50)), Tr(Td("Description: ") Td(textarea(-name=>'description', -rows=>10, -columns=>50))), Tr(Td("Robots: ") Td(popup_menu(-name=>'robots', -values=>['','index','noindex','follow','nofollow']))), Tr(Td("Distribution: ") Td(popup_menu(-name=>'distribution', -values=>['','local','global']))), Tr(Td("Language: ") Td(popup_menu(-name=>'language', -values=>['','EN','EN-GB','EN-US','ES','ES-ES','FR','IT','JA','KO','DE']))); Tr(Td("Rating: ") Td(popup_menu(-name=>'rating', -values=>['','kids','general','mature','restricted']))), Tr(Td()Td(), Tr(Td()(Td(submit)), ), end_form(), hr;