<perl>
$ra ||= 0; $ra_l ||= 20;
$gibaus = 5;
my $vergleich = "";
get "Feld=* range=$ra,$ra_l", "db";
while(get_next("db")){
  if($Feld ne $vergleich){
    $dbwerte .= "Wert = $Feld<br>"; # speichern, damit Blätterlinks oberhalb ausgegeben werden können
    $vergleich = $Feld;
    $cnt_ausgabe++;
  } else {
  $cnt_doublette++;
  }# E if/else vergleich
  if ($cnt_ausgabe >= $gibaus){
  $oldra = $ra;
  $newra = $cnt_ausgabe + $cnt_doublette;
  last
  } # E if cnt_ausgabe
} # E while_get_next

$l_vor = "<a href=$_link&ra=$newra>vor</a>";

$l_zurück - $l_vor<br>
<hr>
$dbwerte
<hr>
EOF
</perl>