用fork函数实现多进程。
fork()函数的行为是将目前进程复制一份，用于建立子进程。
其返回值，在子线程中是0，在父线程中是子线程号。
通过判断其返回值来控制各进程的行为。
例程：
my @pids;
my $pid = fork();
if (!defined($pid))
{
print ("Fork process failured!\n");
exit();
}
if ($pid == 0)
{
push @pids, $pid;
{
print ("Fork process failured!\n");
exit();
}
if ($pid == 0)
{
push @pids, $pid;
print ("This is a child process.\n");
}
else
{
foreach (@pids) {
waitpid($_,0); # 等待子线程
}
{
foreach (@pids) {
waitpid($_,0); # 等待子线程
}
print ("This is the parent process. All child processes have finished.\n");
}
}