Perl的面向对象编程,,,要积分有点不厚道,呵呵,想攒点分下东西,谢谢!