# Generate a checkbox for selecting zero or more elements from a list
print $query->checkbox_group({-name=>'CheckboxOne',
-values=>['First Box','Second Box', 'Third Box',
'Fourth Box', 'Fifth Box'],
-defaults=>['Second Box','Fifth Box']});
# Extract out whatever the contents of our checkbox were.
my @textInput = $query->param(-name=>'CheckboxOne');
print $query->hr();
print $query->p('The checkbox entries you selected were:'), $query->br();
print $query->em({-align=>'center'}, @textInput);
print $query->hr();