#!/usr/bin/perl --
use strict;
use warnings;
use CGI::Pretty;
my @fudge = 1..3;
my $q = CGI::Pretty->new ( { class => \@fudge } );
print "{$_}\n" for $q->param('class');
print $q->checkbox_group(-name=>'class'), "\n"
__END__
{1}
{2}
{3}
<label>
         <input type="checkbox" name="class" value="1" checked="checked" />1
</label>
<label>
         <input type="checkbox" name="class" value="2" checked="checked" />2
</label>
<label>
         <input type="checkbox" name="class" value="3" checked="checked" />3
</label>