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
[download]

then &SendMail($recipient,$sender); makes sense versus &SendMail();

-- tune