在perl中，从main中杀死并释放永不结束的线程的内存

有主线程和两个线程在运行，这两个线程是无限的事件循环，我们正在等待某个事件， 问题是我想在有限的时间内等待事件发生，然后退出程序

但当我退出时，线程仍在运行 我想释放此线程占用的所有空间，然后退出脚本

如何解决这个问题

如何在我离开之前进行清理

---

如何在脚本结束时终止永不结束的线程运行脚本的进程结束。操作系统负责释放此进程分配的所有资源，包括所有线程。你有相反的看法吗？如果是这样，请向您的操作系统填写错误报告