sub printboxes{

    foreach my $key ( sort keys %list ){};
    print header;
    print start_html('Comics Configuration Page'),
          start_form,
          $query->checkbox_group(-name=>'comics',
                                 -values=>[grep {!/html?$/} sort %list],
                                 -columns=>3),
          submit(-name=>'Save my choices!'),
          end_form,
          br,
    print end_html;
    open FH, '>'.$file;
    $query->save('FH');
    close FH;
    }