$mail_prog = "/usr/sbin/sendmail -t";
open(MAIL, "|$mail_prog -t");
##</code><code>##

print MAIL <<"MESG";
To: $recipient
From: $sender
Subject: database entry

added

---------------------------------------------------
.
MESG