在Perl中，可以使用threads模塊來實現并發編程。下面是一個簡單的示例代碼，展示了如何使用threads模塊創建并啟動多個線程：
use threads;
sub worker {
my $id = shift;
print "Thread $id started\n";
# Do some work here
print "Thread $id finished\n";
}
my @threads;
my $num_threads = 5;
for my $i (1..$num_threads) {
push @threads, threads->create(\&worker, $i);
}
# 等待所有線程完成
foreach my $thread (@threads) {
$thread->join();
}
在這個示例中，我們首先定義了一個worker子例程，用于在線程中執行工作。然后我們創建了5個線程，并分別傳遞不同的線程ID給worker子例程。最后，我們使用join方法等待所有線程完成。
需要注意的是，在Perl中使用線程編程也會帶來一些潛在的問題和挑戰，比如共享數據的同步和線程安全性等問題。因此，在編寫并發Perl程序時需要謹慎處理這些問題。
