# email report back to sender showing the # parts of original messages open MAIL, ("|/usr/sbin/sendmail -t") || die "Unable to send mail: $!"; print MAIL "To: $from\n"; print MAIL "From: root\n"; print MAIL "Subject: mime parser test\n\n"; print MAIL "Messege was contructed as follows: \$from: $from \$to: $to \$subject: $subject \$body: $body "; close(MAIL);