sub EmailBySendmail
{
my $to_ptr      = shift;
my $from        = shift;
my $subject     = shift;
my $message     = shift;


foreach my $to_ad (@$to_ptr)
{
        unless(open (MAIL, "|/usr/sbin/sendmail -t"))
        {
                print "error.\n";
                warn "Error starting sendmail: $!";
        }
        else
        {
                print MAIL "From: $from\n";
                print MAIL "To: $to_ad\n";
                print MAIL "Subject: $subject\n\n";
                print MAIL "$message";
                close(MAIL) || warn "Error closing mail: $!";
                print "Mail sent.\n";
        }
}
return;
}