suchfunktion

[Matti Maekitalo]

use Mosche;

Nur ein paar Anmerkungen zu deinem Code, die dir in Zukunft vielleicht hilfreich sind.

Variablen-Initialisierung

[bis]
  #@werte=keys(%parameter);
  #print "Parameter ",keys(%parameter),"<br>";

Das kannst du ersetzen durch
use CGI qw(param);
print for param();

if ($parameter{"mode"} eq "1")

if (param('mode') == 1)

müsste schneller sein.

Ansonsten schließe ich mit Rolf an.

use Tschoe qw(Matti);