fork函数的问题

open(MYFILE,"url.txt")||die ;
while(defined(my $url=<MYFILE>)){
#        my $url = $ur;

                my $pid = fork();
                if (!defined($pid))
                        {
                                print ("Fork process failured!\n");
                                CORE::exit(0);
                        }
                if ($pid)
                        {
                                my $content = get $url;
                                die "Couldn't get $url" unless defined $content;
                                CORE::exit(0);
                        }
                else
                {
                                $connect++;
                                waitpid($pid,0);
                }
               
}
close(MYFILE);
print "$connect";

exit();

请教wait()  waitpid()函数怎么用合适？我这个脚本是想生成很多连接模拟很多用户访问网站，从而达到网站压力测试的目的，但是在实际测试中，在web那边netstat -an 有很多TIME_WAIT，ESTABLISHED很少，我对fork函数理解不透，请高手指教，谢谢！

goofgle一下吧，或者看perlfork，perlipc
你把父子进程都弄反了