################################################################################
sub sendMail {
################################################################################
   my ( $mailto, $mailcc, $subject, $message ) = @_; 
   my $mailprog = '/usr/lib/sendmail';
   my $mailmsg;
   return if ( !defined $message );
   $mailmsg = MIME::Entity->build(
       Type     => "multipart/mixed",
       -From    => $MAIN::MAILFROM,
       -To      => $mailto,
       -Subject => $subject );
   attach $mailmsg Data => $message;
   open(MAIL, "| $mailprog -t $mailto")
      or print ACCESS_LOG "Fehler beim Mail-Programm $mailprog: $!\nmail: not send";
   $mailmsg->print(\*MAIL);
   close(MAIL);
}