sub ResetQcDemoPJ($$$$$)
{
    # pick parameters
    my($fhlog, $dir, $file1, $file2, $string) = @_;

    # return code
    my $rc = 0;

    # Hier wird das verzeichnis geöffnet und geprüft ob gesuchte Datei im Verzeichnis liegt.
    if (existsFileInDirectory($file1, $dir))
    {
        print {$fhlog} '#' x 120, "\n";
        print {$fhlog} '#' x 120, "\n";  
        print {$fhlog} "Die Datei: $file1 wurde im Verzeichnis: $dir gefunden!\n";
       
        # Hier wird die Datei auf aktuelles Datum geprüft. Ergebnis wird dann ausgegeben.
        print {$fhlog} ("INFO : ","Der Zeitstempel der Datei wird geprüft!\n");


        opendir(my$dhdir, $dir) or die "$dir: $!"; # Verzeichnis "öffnen"
            my @verzeichnisse = grep{ -f qq($dir/$_) } readdir($dhdir);
        closedir($dhdir);

        if (existsTimeStamp($file2, 24))
        {    
            # Wenn Datei im Verzeichnis vorhanden, dann prüfen ob Suchstring in der Datei enthalten ist.  
            print {$fhlog} "Die Datei: " . $file2 . "  wurde im Verzeichnis gefunden und hat ein aktuelles Datum!\n";
            print {$fhlog} '+' x 120, "\n";
            print {$fhlog}  "Die Datei: " . $file2 . " wird gelesen und geprüft!\n";

            if (existsFileString($file2, $string))
            {
               
 print {$fhlog} "Der Suchstring in der Datei wurde gefunden!! \n";
               
 print {$fhlog} '+' x 120, "\n";
               
 $rc = 1;
            }
            else
            {
               
 print {$fhlog} "Der Suchstring in der Datei wurde nicht gefunden!! \n";
               
 $rc = 0;
            }
        }
        else
        {
            print {$fhlog} "Es besteht in dem Verzeichnis keine aktuelle Datei!\n";
            $rc = 0;
        }
    }
    else
    {
        $rc = 0;
        print {$fhlog} "Die Datei: $file1 wurde im Verzeichnis: $dir nicht gefunden!\n";
    }

    ## Hier wird nach Durchlauf der Kontrolle ein Statment abgegeben wenn keine aktuellen Dateien vorhanden sind!
    unless ($rc)
    {
        print {$fhlog} "Prüfung abgebrochen, da eine der Prüfungen nicht OK war!! Bitte prüfen!!!\n";
    }

    return $rc;  # Hier wird der ermittelte Rückgabewert aus der Subroutine übergeben!
} #close ResetQcDemoPJ

my $rc = ResetQcDemoPJ(\*LogDatei, $SqlSrvJobs, $DateiName, $SqlSrvJobs2, $String1);