sub SendReportMail{
   my %conf = %{shift()};
   my $meldung = shift || "Es wurde keine Meldung bereitgestellt!";
   my $betriff = shift || "Meldung vom Monitoring-System!";
   
 my %mail = ( To      => $conf{email_to},
            From      => $conf{email_from},
            Message   => $report_text,
			Subject   => $report_subject,
           );
  $mail{auth} = {user=>$conf{email_from}, password=>$conf{email_pwd}, required=>$conf{email_required} };

  $mail{Smtp} = $conf{email_smtp}; 
 
  sendmail(%mail) or die $Mail::Sendmail::error;
  print "OK. Log says:\n", $Mail::Sendmail::log;
   }#end-SendReportMail