sub existsActBackup 
   {
       my ($file,$max_age) = @_;
       my $tmpValue = 0;
       #print LogDatei $tm;
       my $age = (time - (stat($file))[10]) / (60 * 60 * 24);# an dieser Stelle wird max. 24Stunden zurück abgefragt!
   if ($age < $max_age) 
   {    
       $tmpValue = 1;
       print LogDatei "   " . $tm . "  Aktuelle Dateien vorhanden! \n";
       print LogDatei "file  stat($file)\n";
       #print LogDatei "file2 $file \n";
   } 
   else 
   {  
       $tmpValue = 0;
       #print LogDatei "Keine aktuellen Dateien vorhanden! \n";      
   }  
       return $tmpValue;
   }