#!/usr/bin/perl -w

use CGI qw/:standard/;   

$q= new CGI;
print $q->header,			# create HTTP header
      $q->start_html('Silly'),		# start the HTML
      $q->h1('A Silly CGI'),		# level 1 header
      $q->start_form, "Some stuff? ",	# a form
      $q->textfield('stuff'), 
      $q->p, "Check some gecks:",
      $q->checkbox_group(-name=>'gecks',
                         -values=>['Ferris','Helen','Blinky','Ursula','Freia'],
			 -defaults=>['Ferris','Ursula']), 
      $q->p, "Which is your favorite gecko?",
      $q->popup_menu(-name=>'fave', 
                     -values=>['Ferris','Helen','Blinky','Ursula','Freia']),
      $q->p,
      $q->submit,
      $q->end_form;
     
# read 'perldoc CGI'