#!/usr/bin/perl -w
use strict;
use CGI;
my $q = CGI->new();
my @predef = ( 'abba', 'dabba', 'doo');
my @slicer = ( 1 );
my %labels = ( abba => 'pop', dabba => 'amateur', doo => "don't go there" );
print $q->checkbox_group ( -name => 'predefined',
-values => \@predef,
-default => [@predef[@slicer]],
-linebreak => 'true',
-labels => \%labels,);
=pod comment
$ perl ~/tcgi.pl
pop
amateur
don't go there
$
=cut