#!/usr/bin/perl -w
use strict;
use CGI::Pretty qw(:all);

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