添加EffectivePerl的测试例子。