#!/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;
[download]

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}