sub 
RelaisKontrolle 
{ 
 open(DATEI,"kontrolle.lh");
 while (<DATEI>){
   my $soll = $_;                        #liest die nächste Zeile ein
   chop($soll);                          #entfernt den Zeilenumbruch
   my $ist  = $soll."k";                 #Ist - Item ist immer + "k"
   my $isoll = ReadingsVal ($soll,"state","");   #Inhalt IST - Reading
   my $iist  = ReadingsVal ($ist,"state","");    #Inhalt SOLL - Reading
   if (ReadingsVal ($isoll,"state","") ne ReadingsVal ($isoll,"state","")) {
    fhem("set pushmsg message Fehler $isoll $iist")
   }  else {
    fhem("set pushmsg message Alles ok");
   }
 }
}