my $sendmail = "/usr/sbin/sendmail -t";

open MAIL, "|$sendmail" or die "Cannot open $sendmail: $!";
print MAIL <<EMAIL;
Reply-to: $reply_to
Subject: $subject
To: $send_to
Content-type: text/plain

$content
.

EMAIL
close MAIL;