sub fizzbinbox {
    my $self = shift;
    my $tmpl = $self->load_tmpl;
    my $q = $self->query;

    $tmpl->param(
        fizzbin => $q->checkbox_group(
            -name => 'words',
            -values=>['eenie','meenie','minie','moe'],
            -defaults=>['eenie','minie']) );

    return \ $tmpl -> output;
}