open(QRY_RES, "</tmp/qry_res.$$.csv");
$record_couter=0;
foreach $zeile (<QRY_RES>) { # Eine Datenzeile aus der Datei lesen
                             # liefert true, wenn eine Zeile gelesen werden konnte
  chomp $zeile;      # Zeilenumbruch entfernen
  next if (!$zeile); # Leerzeilen ueberspringen
  $record_couter+=1;
  
  #Fusszeile(n) am Seitenende Ausgeben
  if ($- <= 5 && $- > 0) {
    $~ = STDOUT_FOOT; write;
    $~ = STDOUT;
    #write(STDOUT_FOOT);
    $-=0;
  }

  # Einträge der aktuellen Datenzeile aufsplitten
  ($suchbegr, $stammnr, $kn, $lzbkn, $kne, $lzbkne, $gs, $pruefk, $ort, $name2, $name3, $personen_id)=split(/;/,$zeile, 12);

  write;
  $tmp_rc=$?;
  if ($tmp_rc != 0) {
    print STDERR "Fehler beim schreiben des Reports => exit $tmp_rc\n";
    exit $tmp_rc;
  }

}
#Seitenfuss auch auf letzte Seite schreiben
$~ = STDOUT_FOOT; write;

print "\nAnzahl der Datensätze: $record_couter";
close(QRY_RES);