<perl>

{
  out "Cookies sind jetzt gelöscht...";
  set_cookies "Name=", "Besuche=";
  out '<p><a href="baseportal.pl?htx='.$htx.'">Seite erneut aufrufen</a>';
} else
{
if($Name)
{
  out "Willkommen $Name!";
  set_cookies "Name=$Name", "Besuche=1";

  out '<p><a href="baseportal.pl?htx='.$htx.'">Seite erneut aufrufen</a>';

{
  $Besuche=$_cookies{Besuche}+1;
  out "Hallo $_cookies{Name}, dies ist Dein $Besuche. Besuch!";
  set_cookies "Besuche=$Besuche";

  out '<p><a href="baseportal.pl?htx='.$htx.'">Seite erneut aufrufen</a>';
  out ' - <a href="baseportal.pl?htx='.$htx.'&cmd=clear">Cookies wieder l&ouml;schen</a>';

{
  out <<EOF;
Herzlich Willkommen! Dies ist Dein erster Besuch. Wie heisst Du?<p>
<form action="baseportal.pl?htx=/$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Name: <input type="text" name="Name="> <input type="submit" value="Abschicken">
</form>
EOF
}
}