#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use CGI qw(:standard);
use MIME::Lite;
use CGI::Carp 'fatalsToBrowser';
$CGI::POST_MAX=1024 * 100; # max 100K posts
my $organisers_name= param('organisers_name');
my $organisers_address= param('organisers_address');
my $organisers_homeN= param('organisers_homeN');
my $organisers_mobile= param('organisers_mobile');
my $organisers_email= param('organisers_email');
my $prefered_contact= param('prefered_contact');
my $brides_name= param('brides_name');
my $brides_number= param('brides_number');
my $wedding_date= param('wedding_date');
my $bride_organiser= param('bride_organiser');
my $suprise= param('suprise');
my $msg = MIME::Lite->new(
To =>$organisers_email,
Subject =>'Verify3',
Type =>'multipart/related'
);
$msg->attach(
Type => 'text/html',
Data => '
O Name
$organisers_name
O Address
$organisers_address
O HomePh
$organisers_homeN
O Mobile
$organisers_mobile
O email
$organisers_email
O contact
$prefered_contact
B Name
$brides_name
B Number
$brides_number
B date
$wedding_date
B Organiser Check
$bride_organiser
B Suprise
$suprise
',
);
$msg->send;
print header(-type=>'text/html');
print <$organisers_name Hens party with The Man in the Charcoal Suit booking page
