Perl如何在继续其他线程的同时终止perl中的“流氓”线程

use threads;
use Thread::Queue;

# 创建一个队列，用于线程间通信
my $queue = Thread::Queue->new();

# 创建一个“流氓”线程
my $rogue_thread = threads->create(sub {
    while (1) {
        # 检查队列是否有终止信号
        if ($queue->pending() && $queue->peek() eq 'terminate') {
            last;  # 终止线程
        }
        
        # 执行线程的任务
        # ...
    }
});

# 继续其他线程的执行
# ...

# 终止“流氓”线程
$queue->enqueue('terminate');

# 等待“流氓”线程结束
$rogue_thread->join();