利用folk函数进行多线程处理 ### perl