sub RelaisKontrolle { 
        open( my $datei,'<', 'kontrolle.lh');

        # Ausgabepfad evtl. anpassen, wenn es nicht auf Linux ist
        # Fehlerbehandlung sparen wir uns ausnahmsweise mal
        open( my $prueflog, '>', '/tmp/kontrolle.txt' );
        
        while (my $soll = <$datei>){

                if ($prueflog) { print $prueflog "GELESEN: >$soll<"; }

                chomp($soll);                         #entfernt den Zeilenumbruch

                if ($prueflog) { print $prueflog "OHNE UMBRUCH: >$soll<\n"; }

                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

                # sinnfreier Vergleich, wie von haj schon angemerkt
                if (ReadingsVal ($isoll,"state","") ne ReadingsVal ($isoll,"state","")) {
                        fhem("set pushmsg message Fehler $isoll $iist");
                }  else {
                        fhem("set pushmsg message Alles ok");
                }
        }
}