A Super Search didn't yield too many code examples, but there is one in this thread: help with AI::Categorizer. I didn't look that hard; maybe you'll have better luck.