在Perl中實現多線程編程可以使用Thread模塊。下面是一個簡單的示例：
use threads;
sub thread_sub {
my $thread_id = shift;
print "Thread $thread_id started\n";
# do something in the thread
sleep(1);
print "Thread $thread_id finished\n";
}
my @threads;
for my $i (1..5) {
push @threads, threads->create(\&thread_sub, $i);
}
$_->join() foreach @threads;
在這個示例中，我們首先導入threads模塊，然后定義了一個thread_sub函數作為線程執行的代碼。然后我們創建了5個線程，每個線程調用thread_sub函數，并傳入一個線程ID作為參數。最后我們使用join方法來等待所有線程執行完畢。
需要注意的是，在Perl中多線程編程需要謹慎處理共享數據的讀寫，可以使用Thread::Queue等模塊來安全地在多線程之間傳遞數據。
