很好很强大的perl实例,不多介绍了!