use CGI ':standard';
use HTML::Table;

# Create the "Days" sub-table
my $table = HTML::Table->new;
$table1->addRow('Days With Appointments');
$table1->addRow(scrolling_list(
                -NAME     => "daysList",
                -VALUES   => [keys %calendar],
                -SIZE     => 5,
                -MULTIPLE => 0,));
$table1->addRow(submit({
                -name  => 'dateSelectionButton',
                -value => 'Display Appts'}));

# Create the "Appointments" sub-table
my $table2 = HTML::Table->new;
$table2->addRow('Appointments');
$table2->addRow(scrolling_list(
                -NAME     => "apptsList",
                -VALUES   => \@apptTimeList,
                -SIZE     => 5,
                -MULTIPLE => 0,));

# Create a table to act as a container for 
# the previous two sub-tables
my $bigtable = HTML::Table->new;
$bigtable->addRow($table1, $table2);
print $bigtable;