online chat (backend in Perl than in any event

need to do online chat.

Tasks
1. display status online/offline
2. different types of messages to users
3. The optimal script for large loads.

Use
Preferably Perl (Mojolicious (WebSocket), or AnyEvent