print <
Days with Appointments:
StartTable print $query->scrolling_list( -NAME => "daysList", -VALUES => [keys %calendar], -SIZE => 5, -MULTIPLE => 0, ); print <
Appointments:
MidTable print $query->scrolling_list( -NAME => "apptsList", -VALUES => \@apptTimeList, -SIZE => 5, -MULTIPLE => 0, ); print <
EndTable