#!/usr/bin/perl

open MAIL, "| /usr/sbin/sendmail -t" or die "$!";

print MAIL << 'EOF';
To: joe@here.com
From: smith@here.com
Subject: data subject
message body here
EOF

close MAIL or die "$!";