Perl multi-Process read-write text

Using Perl to dispatch SQL scripts, in the process of opening a number of processes, I found that Perl write log file order disorder, do not want to engage in multi-threading programming so troublesome, my processing method, the corresponding file lock. Perl provides the Flock function to lock the file handle.

Reference code:

Use Fcntl QW (: flock);
My $sum;
My $kk = $ARGV [0];
Open WR, ">>/wls/dsadm/etl/test.txt";
Flock (WR, LOCK_EX);
for ($i =1; $i <=80000; $i + +)
{
$sum = $i;
print "$sum \ n";
Print WR $sum. $kk. " \ n ";
}
Flock (WR, LOCK_EX);

Close WR;

Note: Fcntl is the status value of the Get file.