Pieces of the code are in chapter 12 (Networking with Sockets), but the entire module that I am working with is in:
ftp://ftp.oreilly.com/published/orielly/nutshell/advanved_perl/examples.tar.gz
It is always better to have seen your target for yourself, rather than depend upon someone else's description.