use strict;
use CGI qw(:standard);

my @box = (qw(SSD PERS SS), 'CHILD SUP');

print header,
   start_html,
   start_form,
   checkbox_group(
      -name=>'type',
      -values=>\@box,
   ),
   p(submit('Go')),
   end_form,
;

if (param('Go')) {
   print p(hr), 'You picked:',
      ul(li[param('type')]),
   ;
}

print end_html;