<perl>
if ($sessionid ne "")
{
 $sessid=$sessionid;
 get "sessionid==$sessid", idtable;
 if ($sessionid eq $sessid)
 {
 $sessionid=$sessid
 }
 else
 {
 $nickname="Gast";
 out " Du bist Gast xxx"; 
 }
}
else
{
$nickname="Gast";
out "Du bist Gast xxxx"; 
}
</perl>