An updated and more comprehensive version of this (now called Term::YAPI) is included with Object::InsideOut in the 'examples' directory of the distribution. Enjoy.