open (MAIL,"|sendmail -t") || die "Unable to open sendmail";
print MAIL "To: $recipient\n";
print MAIL "From: $from_email\n";
print MAIL "Reply-to: $reply_email\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$body";
close (MAIL) || die "Unable to send e-mail";

##</code><code>##

Insecure $ENV{PATH} while running with -T switch at submit.cgi line 137.

##</code><code>##

open (MAIL,"|sendmail -t") || die "Unable to open sendmail";