sub MemoryCleanup
{
    while(1)
    {
      	foreach(threads->list())
        {
            $_->join() if($_->is_joinable());
        } 
        sleep(5);
    }
}