#!/usr/bin/perl -T

use strict;
use warnings;
use CGI::Pretty qw(:standard);

my @hour = qw(7am-8am 8am-9am 9am-10am 10am-11am);
my @day  = qw(
   Monday Tuesday Wednesday Thursday
   Friday Saturday Sunday
);

print header,
   start_html,
   start_form,
   table(
      Tr(th[' ',@hour]),
      map {
         my $day = $_;
         Tr(
            th({align=>'right'},$_),
            td[map checkbox("_$day",0,$_,''), @hour],
         )
      } @day
   ),
   submit,
   end_form,
   h2('Values'),
   ul(
      map {
         li(substr($_,1,length $_)) . ol(li[param($_)])
      } grep {/^_/} param(),
   ),
   end_html,
;