There's a perl script in the book that does some encryption/decryption. I remember typing it out and fixing it so it worked.