my %MAIL = ();
$MAIL{'TO'} = "NotAcceptingMail@remoteserver.com";
#Brevity exclusion here
open (SENDMAIL, '|/usr/sbin/sendmail -oi -t');
print SENDMAIL <<"EOF";
From:<$MAIL{'FROM'}>
To:<$MAIL{'TO'}>
Subject: $MAIL{'SUBJECT'}

$MAIL{'BODY'}
          
EOF
close (SENDMAIL);