#!/opt/csw/bin/perl
use CGI qw/:standard/; 

my $name = param('name');
my $address = param('address');
my $city = param('city');
my $state = param('state');
my $zip = param('zip');
my $phone = param('phone');
my $fax = param('fax');
my $email = param('email');
my $email2 = param('email2');
my $gender = param('gender');
my $invoice = param('invoice');

print header(),
start_html('Registration Confirmation'), 
hr(),
h2("Pearl County Parks and Recreation"), 
h4("Class Registration Confirmation"),
hr(),
p("Thank you for registering with Pearl County Parks and Recreation."),
p("Please find your class registration confirmation below."),
hr(),
p("Name:",$name),
p("Address:",$address),
p("City:",$city),
p("State:",$state),
p("ZIP:",$zip),
p("Phone:",$phone),
p("FAX:",$fax),
p("Email:",$email), br(),

hr(),
hr(),

p("You are registered for the following class(es)."),  
p("As requested, your invoice will be sent to you by $invoice."), 
br(),

my @classes = param('class');
foreach my $class (@classes){
  print "$class <br>\n";
}

end_html();