If your needs are simple, POE::Component::Server::TCP should do exactly what you want. Check out the following URL for a working example.

http://poe.perl.org/?POE_Cookbook/Chat_Server

I've had great success with POE::Component::Server::TCP in my applications.