IO-Socket-INET-Daemon is a project mainly written in Perl, it's free.

Module for building simple TCP servers.