#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
my $query = new CGI;
print "Content-type:text/html\n\n";
my $to='clients email';
my $from='clients email';
my $subject='Contact Request';
my $name = $query->param('name');
my $email = $query->param('email');
my $address1 = $query->param('address1');
my $address2 = $query->param('address2');
my $city = $query->param('city');
my $state = $query->param('state');
my $zip = $query->param('zip');
my $country = $query->param('country');
my $homephone = $query->param('homephone');
my $workphone = $query->param('workphone');
my $business = $query->param('business');
my $goals = $query->param('goals');
my $comments = $query->param('comments');
open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Name: $name\n";
print MAIL "EMail: $email\n";
print MAIL "Address_line_1: $address1\n";
print MAIL "Address_line_2: $address2\n";
print MAIL "City: $city\n";
print MAIL "State: $state\n";
print MAIL "Zip: $zip\n";
print MAIL "Country: $country\n";
print MAIL "Home_Phone: $homephone\n";
print MAIL "Work_Phone: $workphone\n";
print MAIL "Type_of_Business: $business\n";
print MAIL "Goals: $goals\n";
print MAIL "Comments: $comments\n";
close(MAIL);
print "Client's Site
\n\n";
print "";
print "
Message Received!!!
YOUR business is VERY important to Us! We will respond as soon as we can.