<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>';
    } elsif($_cookies{Name})
    {
        $Besuche=$_cookies{Besuche}+1;
        out "Hallo $_cookies{Name}, dies ist Dein $Besuche. Besuch!";

        out '<p><a href="baseportal.pl?htx='.$htx.'">Seite erneut aufrufen</a>';
        out ' - <a href="baseportal.pl?htx='.$htx.'&cmd=clear">Cookies löschen</a>';
    } else
    {
     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
    }
}