&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