PerlでWebSocketを使いたい時はPocketIO

先日Twitterでも言及したけど、PerlでWebSocketを使いたい場合は、Socket.IO(WebSocket未対応のブラウザの場合はFlash Socket, Ajaxなどで同等の処理を実現できる)のサーバサイド実装であるPocketIOが使えます。
CPANには同作者のPlack::Middleware::SocketIOがありますが、GitHub - vti/plack-middleware-socketio: Socket.IO Perl/Plack implementation DEPRECATED USE PocketIO INSTEADに

Socket.IO Perl/Plack implementation DEPRECATED USE PocketIO INSTEAD

とあるので素直にPocketIOを使いましょう。

サーバサイド実装の本家であるNode.jsのSocket.IO-nodeと同様にexample/にチャットアプリケーションがあるので、使い方はすぐに分かると思います。