PERLgenesis编写的掏铜源代码,具有很强的参考价值,