请教一个多线程的问题

Perl exited with active threads:
        0 running and unjoined
        1 finished and unjoined
        0 running and detached

我的程序在结束时会报如上的错误,请问如何解决
线程是用threads->create方法创建的