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

added

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