自己学习perl面向对象编程的一些心得和代码