一些perl代码