perl 线程池

perl 线程池

哪位大侠能给一个线程池的完整例子,并且能取得每个线程的返回值!谢谢!
据说不稳定的