Grade TCP-Server sind schwer zu bauen, das liegt am absolut unintuitiven Verhalten der TCP-Sockets.
Und wenn Du was mit IO::Socket machst, kommt gleich noch IO::Select dazu, ohne dass man Socket nicht sinnvoll verwenden kann.

Relativ einfach ist derzeit POE::Component::Server::TCP in den Griff zu kriegen.