Your comments have been sent to Rebecca Kaplan

#!/usr/local/bin/perl5
push (@INC, '/cgi-bin');
require ('cgi-lib.pl');

# This should match the mail program on your system.
$mailprog = '/usr/lib/sendmail';

# This should be set to the username or alias that processes the
# requests
$recipient = "rebecca_at_large\@yahoo.com";

# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";

# Print a title and initial heading
print "<Head><Title>Your comments have been sent to Rebecca Kaplan</Title></Head>";

&ReadParse;

open (MAIL, "|$mailprog $recipient") || die "Unable to send request\nPlease send e-mail to  rebecca_at_large\@yahoo.com, Thank you\n";
#open (MAIL, ">test") || die "Cannot open STDOUT: $!\n"; 
print MAIL "Reply-to: $in{'email'}\n";
print MAIL "Subject: Website Form Response\n";
print MAIL "\n\n";
#print "*$#in_key\n";
foreach $i (0 .. $#in_key){
#print "$in_key[$i] = $in_val[$i], i = $i <p>";
print MAIL "$in_key[$i] = $in_val[$i]\n"; 
}
print MAIL "-----------------------------------------------\n";
close (MAIL);

print "Thank you for your comments and help!<P>";
print "Check the website for updates!<P>";
print '<A HREF="http://www.rebecca-at-large.org/"><H3>Return to the Rebecca At Large! Page</H3></A>';