my $who = $cgi->param('name');
   my $msg = $cgi->param('POSTDATA');
   my @keywords = $cgi->keywords;
   
   print join(',',@keywords);
   print "this is a simple text string who=<$who> param('POSTDATA')=<<$msg>>>\n";

   print $cgi->header,
           $cgi->start_html("Hello"),
           $cgi->h1("Hello $who!"),
           $cgi->end_html;
 }