my $textfield = textfield({-size=>40});
my %name = (
   author       => $textfield,
   distributor  => $textfield,
   copyright    => $textfield,
   abstract     => $textfield,
   keywords     => textarea({-rows=>5,-columns=>30}),
   description  => textfield({-rows=>5,-columns=>30}),
   distribution => popup_menu({-values=>['',@dist]}),
   robots       => popup_menu({-values=>['',@robo]}),
   language     => popup_menu({-values=>['',@lang]}),
   rating       => popup_menu({-values=>['',@rate]}),
);

print header,
   start_html('Meta Tag Generator'),
   start_form,
   table( 
      map { 
         Tr(
            td(ucfirst $_ . ': '),
            td($name{$_}),
         )
      } keys %name 
   ),
   submit('submit'),
   end_form,
;