A simple TCP proxy written in Perl. Uses IO::Socket::INET and IO::Select for multiplexing. - View it on GitHub