use strict;
use warnings;
use CGI::Pretty;
my $cgi = CGI::Pretty->new();

print $cgi->header(), $cgi->start_html();

if ( my @selected = $cgi->param("catzez") ) {
    print $cgi->h1("You be checkin...");
    print $cgi->ul( $cgi->li( \@selected ) );
}
else
{
    print $cgi->h1("You chex sumdings, pleez.");
}

print
    $cgi->start_form(),
    $cgi->checkbox_group(
                         -name => "catzez",
                         -cols => 3,
                         -values => [ "Oh, hai!", "Oh, NOES!", "Oh, Pleaze!",
                                      "I can haz PurlMunkz?",
                                      "Hacks. I gots dem.",
                                      "PERL. Yur doin it rong.",
                                      "Golf. Yer doin it... Pretty well akshully.",
                                      "Wherz mah buckit?", "They takes mah buckit!" ],
                        ),
    $cgi->submit("Go, goez!");
    $cgi->end_form(),
    $cgi->end_html();