<perl>
if($klickId>0){
  get "Id==$klickId", "KlickDB";                        # ---- lädt den geklickten Namen aus der DB
  $Klicks++;                                            # ---- erhöht die Klicks um eins
  mod "Id==$klickId", ["Klicks", $Klicks, "letzterKlick", time],  "KlickDB";  # ---- noch den neuen Wert zurückschreiben
}
out "klickList<br><br>";
get "KlickDB";                                          # ---- die Namen laden
while(get_next("KlickDB")){                             # ---- gibt deine Liste aus
  out "<a href='http://baseportal.de/cgi-bin/baseportal.pl?htx=/bpTest/klickList2&klickId=$Id'>$Name</a>";
  out " --- $Klicks Klicks";
  $t=time-$letzterKlick;
  out " --- letzter Klick vor $t Sekunden";
  out "<br>";
}
</perl>