#!/usr/bin/perl -wTuse strict;use CGI;# Clean up environment for taint mode before calling sendmailBEGIN {    $ENV{PATH} = "/bin:/usr/bin";    delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };}my $q       = new CGI;my $email   = validate_email_address( $q->param( "email" ) );my $message = $q->param( "message" );unless ( $email ) {    print $q->header( "text/html" ),          $q->start_html( "Invalid Email Address" ),          $q->h1( "Invalid Email Address" ),          $q->p( "The email address you entered is invalid. " .                 "Please use your browser誷 Back button to " .                 "return to the form and try again." );          $q->end_html;    exit;}send_feedback( $email, $message );send_receipt( $email );print $q->redirect( "/feedback/thanks.html" );sub send_feedback {    my( $email, $message ) = @_;        open MAIL, "| /usr/lib/sendmail -t -i"        or die "Could not open sendmail: $!";        print MAIL <<END_OF_MESSAGE;To: webmaster\@scripted.comReply-To: $emailSubject: Web Site FeedbackFeedback from a user:$messageEND_OF_MESSAGE    close MAIL or die "Error closing sendmail: $!";}sub send_receipt {    my $email       = shift;    my $from_email  = shift || $ENV{SERVER_ADMIN};    my $from_name   = shift || "The Webmaster";        open MAIL, "| /usr/lib/sendmail -t -F'$from_name' -f'$from_email'"        or die "Could not open sendmail: $!";    print MAIL <<END_OF_MESSAGE;To: $emailSubject: Your feedbackYour message has been sent and someone should be responding to you shortly. Thanks for taking the time to provide us with your feedback!END_OF_MESSAGE    close MAIL or die "Error closing sendmail: $!";}