# - - - sortiert aus dem Array entnehmen
  for $htmNam ( sort ( @files ) ) {
    next if ( $htmNam eq '.' ) || ( $htmNam eq '..' );
    $inpNam = "$inpDir/$htmNam";
    $outNam = "$outDir/$htmNam";

    # - - - Flora *.html bis Marke (^Familie) lesen und in ~/tmp abspeichern
    $anzahl++;
    open ( LESEN, "<", "$inpNam" ) or die "Lesefehler beim: $inpNam: $? \n";
    open ( SCHREIBEN, ">>", "$outNam" ) or die "Schreibfehler in $outNam: $? \n";

    while ( $line = <LESEN> ) {
      print SCHREIBEN $line;
      last if ( $line =~ m/$bisZum/ );
    }
    close ( LESEN );
    close ( SCHREIBEN );
    if ( $tstZhl != 0 ) {
      if ( $tstZhl > $anzahl ) { ; } else { last; }
    }
  }
  return $anzahl;