http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/edorado/kids/chat/start 

     <perl>
           if($sid=do_chat "/login", "nutzer")
                                        {
                                                                         out <<EOF;

                                                                               <script>
           function n(name)
                                        {

                                                                     if(navigator.appName!="Netscape" || parseInt(navigator.appVersion)!=4)
                                                                             {

                                                                                     for(i=1; i<rb.length; i++)
                                                                                     {
                                                                                             if(rb[i].value.toLowerCase().indexOf(name.toLowerCase())==0)
                                                                                             {
                                                                                                     name=rb[i].value;
                                                                                                     break;
                                                                                             }
                                                                                     }
                                                                             }
                                                                             return name;

                                                                         }
                                                                               </script>
                                                                               <frameset
             rows="*,0,40" frameborder="0" border=0 framespacing="0" border="0">
             <frameset cols="*,200" frameborder="0" border=0 framespacing="0" border="0">
             <frame name="output" src="baseportal.pl?htx=/edorado/kids/chat/empty"
             frameborder="no">
             <frame name="who" src="baseportal.pl?htx=/edorado/kids/chat/who" frameborder="no">
             </frameset>
             <frame name="dummy" src="baseportal.pl?htx=/edorado/kids/chat/wait&uid=$uid&sid=$sid"
             marginwidth="0" marginheight="0" scrolling="no"
             frameborder="no">
             <frame name="input" src="baseportal.pl?htx=/edorado/kids/chat/input&uid=$uid&sid=$sid"
             marginwidth="0" marginheight="0" scrolling="no"
                                        frameborder="no">

                                                                               </frameset>
           EOF
                                        } else
                                                                         {
                                                                         out "<center><br>";
                                                                         out "<b>Anmeldung fehlgeschlagen!</b><p>" if $uid ne "";
                                                                         out <<EOF;

                                                                               <table><form
             action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
             <input type="hidden" name="htx=" value="$htx">
             <tr><td align=right><font face=arial size=3>Name:</td><td><input type=text name="uid="
             value="$_get{uid}" size=12></td></tr>
             <tr><td align=right><font face=arial size=3>Passwort:</td><td><input type=password
             name="upw=" size=12></td></tr>
             <tr><td></td><td><input type=submit value="Anmelden"></td></tr>
             </form></table>
                                        EOF

                                                                         }
                                                                               </perl>