sub existsTimeStamp 
   {
     
     my ($file,$max_age) = @_;
     my $tmpValue = 0;
    
     my (undef, undef, undef, undef, undef, undef, undef, undef, undef,$mtime) = stat($file); #Hier wird der Zeitstempel ermittelt, wann die Datei überschrieben wurde
      
     print   $mtime; 
     my $age = (time - $mtime);
    
     if ($age < ( 12 * 60 * 60 )) 
       {    
         $tmpValue = 1;
        # print LogDatei ("INFO: ","Aktuelle Datei" . $file . " vorhanden!");
        # print LogDatei ("INFO","file  stat($datei)");
       } 
     else 
       {  
         $tmpValue = 0; 
        # print LogDatei ("INFO: ","Aktuelle Datei" . $file . " nicht vorhanden!");
       }  
     return $tmpValue;
   }