Foro - Perl en Español

Hola de nuevo, un saludo para todos.

Tengo hecho en Perl un Chat, este se abre con frame y quisiera poner la opción de enviar privados entre los usuarios, alguien podría darme un script o alguna idea como puedo hacerlo ?.
Los nombres de usuarios están en ..

<nobr><FORM name="isn" ACTION="$ENV{'SCRIPT_NAME'}" METHOD="POST" onSubmit="return JoinIn();">
<font face="verdana"><b>ESCRIBA MENSAJE: </font></b><input name=username type=hidden value="$form{'username'}">
<input name=room type=hidden value="$form{'room'}">
<input name=nombre type=text value="$form{'nombre'}">
<input type=text name=message size=42 onfocus="javascript:this.select()">
<input name=CHATCOLOR type=hidden value="$form{'CHATCOLOR'}" size="8">
<select size="1" name="listado">
<option selected>TODOS</option>
<option>3º_ESTADÍSTICA_MADRID_R.B</option>
<option>10º_ESTADÍSTICA_MADRID_J.R</option>
<option>4º_ESTADÍSTICA_MADRID_J.M</option>
</select>
<input type=submit value="Enviar">
</form></nobr>
</TD></TR>


donde $form{'username'} y $form{'nombre'} es un solo usuario y es el mismo.
Y en la lista desplegable estan todos los usarios.

un Saludo a todos.

Hola, la verdad que no te he entendido, debo decirte que mi programación en Perl es baja, no se si te refieres ha hacer algo parecido a eto :

if ($form{'username'} && $form{'listado'} eq $form{'nombre'})
{
$newmessage = .....
}

Un saludo.

Hola, en donde almacenas los mensajes del chat ???

En un TXT ? pues podrías usar otro TXT por cada conversación privada...

Y el script que muestre los mensajes dependiendo de la sala de chat que sea...

Espero que te sirva

Saludos