consider the following too:
&SendMail($recipient,$sender);
sub SendMail {
my ($recipient,$sender) = @_;
open(MAIL, "|$mail_prog -t") || &error("Could not send out emails"
+);
print MAIL "To: $recipient \n";
print MAIL "From: $sender <$sender>\n";
print MAIL "Subject: database entry\n";
print MAIL "added\n\n";
print MAIL"-------------------------------------------------------
+----------------------------------\n";
print MAIL "";
print MAIL "\n\n";
print MAIL "\n\n";
close (MAIL);
} # end SendMail function
then
&SendMail($recipient,$sender); makes sense versus
&SendMail();
--
tune