have a look at NetServer::Generic (available on CPAN) for a quick way of implementing a server program. (it supports both the forking and the select loop model, so you can try both by just setting a variable)