#!/usr/bin/perl use strict; use warnings; use diagnostics; use cgi qw(:standard); use CGI::Carp 'fatalsToBrowser'; $CGI::POST_MAX=1024 * 100; # max 100K posts my $query = CGI->new(); my @names = $query->param; foreach my $name ( @names ) { my $value = $query->param( $name ); } my $organisers_name=('organisers_name'); my $organisers_address=('organisers_address'); my $organisers_homeN=('organisers_homeN'); my $organisers_mobile=('organisers_mobile'); my $organisers_email=('organisers_email'); my $prefered_contact=('prefered_contact'); my $brides_name=('brides_name'); my $brides_number=('brides_number'); my $wedding_date=('wedding_date'); my $bride_organiser=('bride_organiser'); my $suprise=('suprise'); print < $organisers_name Hens party with The Man in the Charcoal Suit booking page

So far so Good.
Below lists the details that you have entered so far.
PLEASE CHECK THESE CAREFULLY
If everything is ok click the "proceed" button or the "return" button to correct anything.

Your details

$organisers_name
$organisers_address
$organisers_homeN
$organisers_mobile
$organisers_email
How do you preferr to be contacted $prefered_contact

The Bride to be's details

$brides_name
$brides_number
The date of the wedding? $wedding_date
Is the Bride organising this party? $bride_organiser
Is this a suprise party for the Bride? $suprise
print_tag