How do I write a simple chat server in Perl using Net::Server?

I w开发者_Go百科ant to write a Net::Server chat server, probably using PreFork, with process tied to an active client. How do I "talk" between clients, with the proper filtering?

You can start by taking a look at the chat example bundled with Net::Server.