perl多進(jìn)程相關(guān)（求大神指教）

kevinyan1984

情景：一臺(tái)日志服務(wù)器到200多組服務(wù)器rsync遍歷下載系統(tǒng)日志，下載完成后要在mysql中插入下載狀態(tài)，目前單進(jìn)程跑，時(shí)間太久，求大神們賜一個(gè)多進(jìn)程或者多線程的例子。

簡(jiǎn)單的例子：
#!/usr/bin/perl -w

use strict;
use POSIX;

my @iplist;
push(@iplist,"192.168.0.$_" for(1..254);
my $user="rsync";
my $logdir="/backup/logs";

my $date = strftime("%Y%m%d_%H",localtime);
my $R = "/usr/bin/rsync";
my $MY = "/usr/bin/mysql";
foreach my $ip (@iplist){
    qx($R -auzvP $user\@$iplogdir/syslog_${date}.log /backup/logs/$ip/);
    if ($? == 0) {
        qx($MY -u$user -p$user LOG -e "insert into logstat (logname,stat) values ('$logdir/$ip/syslog_${date}.log',0);";
    } else {
        qx($MY -u$user -p$user LOG -e "insert into logstat (logname,stat) values ('$logdir/$ip/syslog_${date}.log',1);";
    }
}