Demo Request Sent Sucessfully

#!/bin/perl -- -*-perl-*-
#-----------------------------------------------------
# Rob's CGI Form Mailer -copyright 2000-
# Last Modified 25/01/2000
#-----------------------------------------------------
$mailprog = '/usr/lib/sendmail';
$recipient = 'ross@timeplan.ltd.uk';
$data = getenv("QUERY_STRING"); 
print "Content-type: text/html\n\n";
print "<Head><Title>Demo request sent</Title></Head>";
print "<Body>
<H1>Demo Request Sent Sucessfully </H1>";
print "$data"
#open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
#print MAIL "Reply-to: $FORM{'Email'})\n";
#print MAIL "Subject: Demo Request\n\n";
#print MAIL "$FORM{'Nome'}\n";
#print MAIL "Requested a demo of Fuel Wizard\n\n";
#print MAIL "With the comments: \n";
#print MAIL "$FORM{'message'}";
#print MAIL "\n";
#print MAIL "Server information:\n";
#print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
#print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
#print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
#close (MAIL);
print "Thank you for your request for our Fuel Wizard demo.\n";
print "You will be contacted within the next few working days.\n";
print "Please close this window to continue browsing our site\n";
# sub blank_response
# {
#     print "Your entries appear to be blank, and thus were not sent ";
#     print "Please re-enter your comments, or close this";
#     print "window to continue browsing our site";
#     exit;
# }