#!/usr/bin/perl

# use strict;
use CGI;

$q = new CGI;

print $q->header;
print $q->start_html('A simple example'),
   $q->h1('A simple example'),
   $q->start_form,
   "What's your name? ", $q->textfield('name'),
   $q->p,
   "What's the combination? ",
   $q->p,
   $q->checkbox_group(-name=>'words',
		  -values=>['eenie','meenie','minie','moe'],
		  -defaults=>['eenie','minie']),
   $q->p,
   "What's your favorite color? ",
   $q->popup_menu(-name=>'color',
	      -values=>['red','green','blue','chartreuse']),
   $q->p,
   $q->submit,
   $q->end_form,
   $q->hr;

if ($q->param()) {
   print
      "Your name is ", $q->em($q->param('name')),
      $q->p,
      "The keywords are ", $q->em(join(", ", $q->param('words'))),
      $q->p,
      "Your favorite color is ", $q->em($q->param('color')),
      $q->hr;
   }
print $q->end_html;