#!/usr/bin/perl -w

use CGI qw/ :standard /;
use strict;
my @checkbox_items = qw/one two three four five/;
print header,
      start_html( -title => 'Checkbox group sample using CGI.pm' ),
      start_form;
print checkbox_group(
    -name      => 'testing',
    -values    => \@checkbox_items,
    -linebreak => 1,
), submit, end_form;

my @checkbox_values = param( 'testing' );

print p( 'Check a button or two and click Submit Query to see the checked values.' ),
      li,
      join '<LI>', @checkbox_values;
print end_html;