Have you seen Net::Server ? Its got a bit of a learning curve, however when you get past that, i've found it to be quite a good module to use for my tcp server stuff.