if (-e $completelogdatei) {

            $logsize=(stat($completelogdatei))[7];

#            unlink($completelogdatei) if($logsize + length($print_out)>$log_maxsize && $log_maxsize>0);


########################  kürzen der completelogdatei auf - ungefähr - log_maxsize
if($logsize + length($print_out)>$log_maxsize && $log_maxsize>0) {

            my $ShrinkAbout = abs(($log_maxsize - length($print_out)) - $logsize);
            open(DATEI,">>$completelogdatei") || err_trap('can\'t open mysqldump_perl.complete.log ('.$completelogdatei.').');

            while ($OldLog = <DATEI> ) {
               if ( $SkipOldLog <= 0 ) {
                  $OldLog4NewLog .= $OldLog;
               }
               else  {
                  if ( ($SkippedByte += length($OldLog)) >= $ShrinkAbout ) {
                     $SkipOldLog = 0;
                  }
               }
            }   
            close(DATEI)|| err_trap('can\'t close mysqldump_perl.complete.log ('.$completelogdatei.').');

            unlink($completelogdatei);
            $print_out = $OldLog4NewLog.$print_out;
}
########################
         }

         my $output=$print_out;