Kill and free the memory of never ending threads from main in perl

Kill and free the memory of never ending threads from main in perl References pThere is main running and two threads running,The two threads are infinite event loops where we are waiting for some event, The issue is I want to wait for the event to come for some finite amount of time and then exit from the program/p pBut when I am exiting the threads are still running I want to free all the space occupied by this threads and then exit from the script /p pHow to fix this?/p pHow to do a clean up before I exit/p pHow to kill threads that are never ending/p