#!/usr/bin/perl ####################### #EmailResponse.pl # #Kevin Hanegan # #Case Study # 1 # ####################### use CGI.pm; $query = new CGI; #######Configuration Section######## $mailpck = "/usr/sbin/sendmail"; $recipient = "peterbeaucage/@myrealbox.com"; $subject = "Comment form has been submitted"; #######End Config Section########## #######Send email Section####### open (MAIL, "| $mailpck -t") or die("$!\n"); print < From: $query->param('userName') <$query->param('email')> Subject: $subject Someone filled out your form It was filled out by: $query->param('userName') $query->param('comments') EMAIL close (MAIL); #######End Append Section######## #####Dynamic Response HTML page###### print < Email Response Confirmation

Thank You! Your information has been sent successfully

The following listing is the information you sent:
Name: $query->param('userName')
Email: $query->param('email')
Comments: $query->param('comments')
HTML_RESPONSE ####End Dynamic Response HTML page####