------------------------------------------------------------
Listing 6: add-appointment-form.html
<%once>
my @months = qw(January February March April May June July
August September October November December);
my @years = (2001 .. 2004);
%once>
<%init>
use People;
my $people = new People;
# Get all of the names of people, so that we can print them
my @names_and_addresses = $people->get_names_and_addresses();
%init>