open(SM,"|/usr/sbin/sendmail -t");
print SM <<OUT;
To: me\@me.net
From: server\@yourserver.com
Subject: results

$msg_text

OUT
close(SM);