CGI script

Also here is the script
#/usr/bin/perl --
use CGI;
 
$q = new CGI;
 
$name = $q->param('name');
$propertyaddress = $q->param('propertyaddress');
$city = $q->param('city');
$state = $q->param('state');
$zip = $q->param('zip');
$phone = $q->param('phone');
$email = $q->param('email');
$status = $q->param('status');
$relationship = $q->param('relationship');
$propertytype = $q->param('propertytype');
$condition = $q->param('condition');
$size = $q->param('size');
$squarefootage = $q->param('squarefootage');
$bedrooms = $q->param('bedrooms');
$bathrooms = $q->param('bathrooms');
$parking = $q->param('parking');
$email = $q->param('email');
$spaces = $q->param('spaces');
$listingstatus = $q->param('listingstatus');
$planning = $q->param('planning');
 
open (MAIL, "| /usr/sbin/sendmail -f \"Loan Inquiry\" -t");
        print MAIL "To: user\@domain2.com\n";
        print MAIL "Subject: Home Loan Inquiry\n\n";
        print MAIL<<END;
        Name: $name
        Property Address: $propertyaddress
        City: $city
        State: $state
        Zip Code: $zip
        Phone Number: $phone
        Email Address: $email
        Resident Status: $status
        Relationship: $relationship
        Resident Status: $status
        Relationship: $relationship
        Type of Property: $propertytype
        Overall Condition: $condition
        Lot Size / Acreage: $size
        Approximate Square Footage: $squarefootage
        Number of Bedrooms: $bedrooms
        Number of Bathrooms: $bathrooms
        Parking: $parking
        Spaces: $spaces
        Listing Status: $listingstatus
        Planning to sell: $planning
 
 
END
 
## DO NOT forget to close the pipe
close MAIL;
 
## send new html document to browser
print "Location: /thank_you.htm\n\n";
_______________________________________________
LinuxManagers mailing list - http://www.linuxmanagers.org
submissions: LinuxManagers-35TzE1X9F6582KRnZfj+bdi2O/[email protected]
subscribe/unsubscribe: http://www.linuxmanagers.org/mailman/listinfo/linuxmanagers