#!/usr/bin/perl
my $mailprog = '/usr/lib/sendmail';
open(MAIL, "|$mailprog -t");
print MAIL "To: $SENDER\n";
print MAIL "From: $RECP\n";
print MAIL "$Here_is_where_the_body_of_your_message_goes";
close MAIL;