#!/usr/bin/perl
use CGI;
my $q = new CGI;

print $q->header,
      $q->start_html,
      $q->start_form,

      # the following lines are taken directly from the CGI doc:

      $q->checkbox_group(-name=>'words',
          -values=>['eenie','meenie','minie','moe'],
          -defaults=>['eenie','minie']),

      # END CGI doc plug.

      $q->submit,
      $q->end_form;

my @val = $q->param('words');
print "selected: $_<br>\n" for @val;

print $q->end_html;