#!/usr/bin/perl -w
print "Content-type:text/html\n\n";
$to='webmaster@prowebdesigner.net';
$from='webmaster@prowebdesigner.net';
$subject='Web Site Design Request';
$name = $formdata{'name'};
$email = $formdata{'email'};
$address1 = $formdata{'address1'};
$address2 = $formdata{'address2'};
$city = $formdata{'city'};
$state = $formdata{'state'};
$zip = $formdata{'zip'};
$homephone = $formdata{'homephone'};
$workphone = $formdata{'workphone'};
$business = $formdata{'business'};
$goals = $formdata{'goals'};
$comments = $formdata{'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 "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 "Perl\n\n";
print "YOUR potential business is VERY IMPORTANT to PRO WEB DESIGN. We will respond as soon as we can.";
print "";