------------------------------------------------------------ Listing 6: add-appointment-form.html Add an appointment

Add an appointment

Make an appointment with

on: , at :

until: , at :

Text:

<%once> my @months = qw(January February March April May June July August September October November December); my @years = (2001 .. 2004); <%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();