my $contentxt; my $content=\$contenttxt;
my %par;
%par=["recht","1"];         #Beispiel für zusätzliche Parammeter
 
if($Passwort ne "" && $Passwort eq $pwrein)
  {
${$content}=${$content}.<<EOF"<tr><td>$Bereich</td>"
<td>
<a href=$Link&namerein=$namerein&pwrein=$pwrein>ändern</a>
</td>
</tr></table>
EOF
&html_par($content,%par); #hier werden die fehlenden Parameter in die links eingebaut

  } else .....

sub html_par{ 
#  in die dyn. Links der Seite werden übergebene parameter eingetragen

my partxt, my $Schluessel;my $Wert;	
  
while (($Schluessel, $Wert) = each(%par)) #holt hashinhalt
{
$partxt=$partxt."&".$Schluessel."=".$Wert;
{
${$content} =~ s/(a?href=.*".*\?htx\=)(.*?)(\&.*?)"/$1$htx$3$par"/g; #modifiziert perlaufrufe in den links des HTMLcodes und hängt den String $partxt an			
return;
}