在Perl中可以使用Thread模塊來創建多線程，也可以使用Fork模塊來創建多進程。
使用Thread模塊創建多線程的示例代碼如下：
use threads;
sub thread_function {
my $id = shift;
print "Thread $id started\n";
# do something
}
my @threads;
for (my $i = 1; $i <= 5; $i++) {
push @threads, threads->create(\&thread_function, $i);
}
foreach my $thread (@threads) {
$thread->join();
}
使用Fork模塊創建多進程的示例代碼如下：
use Parallel::ForkManager;
my $pm = Parallel::ForkManager->new(5); # 5個進程
for (my $i = 1; $i <= 5; $i++) {
$pm->start and next;
print "Process $i started\n";
# do something
$pm->finish; # 結束子進程
}
$pm->wait_all_children;
以上是在Perl中使用多線程和多進程的簡單示例代碼，具體使用時可以根據實際需求進行調整和擴展。
