As I've learned it, the best way to handle multiple clients on the server side without forking is with select($$$$). This will allow you to poll for which client happens to have sent some bytes this time around.

Also, as written, the server will never send text that it reads from STDIN to any client except the first one, since <> will keep returning undef.