#Print the data onto the screen
print 
  table({-border=>1},
    Tr(
      td({-valign=>'top'},
        table({-border=>1},
          Tr(td(center('Days with Appointments:'))),
          Tr(td(center(
            $query->scrolling_list(
              -NAME => "daysList",
              -VALUES => [keys %calendar],
              -SIZE => 5,
              -MULTIPLE => 0,)
              )
            )
          ),
          Tr(td(center(
            $query->submit({-name=>'dateSelectionButton', -value=>'Display Appts'})
            )
          )
        )
      )
    ),
    td({-valign=>'top'},
      table({-border=>1},
        Tr(td(center('Appointments:'))),
          Tr(td(center(
            $query->scrolling_list(
              -NAME => "apptsList",
              -VALUES => \@apptTimeList,
              -SIZE => 5,
              -MULTIPLE => 0,)
              )
            )
          )
        )
      )                  
    )
  );

##</code><code>##

print <<StartTable;
  <TABLE BORDER="1">
    <TR>
      <TD VALIGN="top">
        <TABLE BORDER="1">
          <TR>
            <TD><CENTER>Days with Appointments:</CENTER></TD>
          </TR>
          <TR>
            <TD><CENTER>
StartTable
  print $query->scrolling_list(
    -NAME => "daysList",
    -VALUES => [keys %calendar],
    -SIZE => 5,
    -MULTIPLE => 0,
  );
print <<MidTable;
            </CENTER></TD>
          </TR>
          <TR>
            <TD><CENTER><INPUT TYPE="SUBMIT" VALUE="Display Appts"></CENTER></TD>
          </TR>
        </TABLE>
      </TD>
      <TD VALIGN="top">
        <TABLE BORDER="1">
          <TR>
            <TD><CENTER>Appointments:</CENTER></TD>
          </TR>
          <TR>
            <TD><CENTER>
MidTable
  print $query->scrolling_list(
    -NAME => "apptsList",
    -VALUES => \@apptTimeList,
    -SIZE => 5,
    -MULTIPLE => 0,
  );
print <<EndTable;
            </CENTER></TD>
          </TR>
        </TABLE>
      </TD>
    </TR>
  </TABLE>
   
EndTable