my $consider1 = param('consider1'); sub email { open (MAIL, "| $sendmail -t") or die "Cannot open sendmail: $!"; print MAIL "To: $adminmail\n"; print MAIL "From: $usermail\n"; print MAIL "Subject: $subject\n\n"; print MAIL "--------------------\n"; print MAIL "Name: $username\n"; print MAIL "Email: $usermail\n"; print MAIL "Date: $time\n"; print MAIL "--------------------\n"; print MAIL "\n\n"; print MAIL "Question 1:\n"; print MAIL "What is your biggest problem?\n"; print MAIL " $problem1\n"; print MAIL "How would you like this solution delivered?\n"; print MAIL " $delivery1\n"; print MAIL "If Kent created this product, what price would be outside of your budget?\n"; print MAIL " $toomuch1\n"; print MAIL "If Kent created this product, at what price would you CONSIDER buying it?\n"; print MAIL " $consider1\n"; print MAIL "If Kent created this product, at what price would you MOST SURELY buy it?\n"; print MAIL " $willbuy1\n"; print MAIL "If Kent created this product, what price would be too undervalued that you wouldn't purchase it? \n"; print MAIL " $toolittle1\n"; close(MAIL) or die "Cannot close $sendmail: $!"; } ####

Video/DVD    Online Video  
Software         Electronic Book
Physical Book Live Seminar
Telephone Seminar