# Perl program to send mail to a user. $mailprog = '/usr/lib/sendmail'; print "Content-type: text/html\n\n"; if ($ENV{'REQUEST_METHOD'} eq "get") { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } @nvpairs = split(/&/, $buffer); foreach $pair (@nvpairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } $recipient = $FORM{'receiver'}; # # format the mail file format MAIL = ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $value . # Open the mail file and write to it open (MAIL, "|$mailprog $recipient") || die "$mailprog not available.\n"; print MAIL "From: $FORM{'sender'}\n"; print MAIL "Subject: Form test from $FORM{'sender'}\n\n"; print MAIL "Dear $FORM{receiver},\n\n"; print MAIL "\n"; print MAIL "The user chose:\n\n"; foreach $pair (@nvpairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; print MAIL "$name = $value\n"; } print MAIL "\n"; close (MAIL); print "\n"; print "\n"; print "Mail Sent\n"; print "\n"; print "\n"; print "

Mail has been sent from $FORM{'sender'} to $FORM{'receiver'}.\n"; print "\n"; print "\n";