This code is from the previous edition, which was titled "Learning Perl Objects, References, and Modules".  It does contain the files mentioned in "Intermediate Perl".   We are hoping the authors will update it at some point, but until then we wanted to make it available here.