open (MAIL, "|/usr/sbin/sendmail -t -oi -em")
    || die "Couldn't open sendmail: $!";
print MAIL <<EOM;
To: me\@mycompany.com
From: myscript\@mycompany.com
Subject: Some subject

$reportdata
EOM
close (MAIL);