讨论一个问题

想做一个网站压力测试，服务器系统是AS5，内存是1G，想用perl脚本产生很多的子进程，去连接服务器那边的1000个大小不同的文件，模拟很多用户访问网站上不同的网页，依次更加真实的去做压力测试。
在实际的测试过程中，WEB服务器上的连接数总是很低，在十几个左右，是不是我的方法有问题？希望和大家讨论一下！
我的脚本：

#!/usr/bin/perl -w
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();

去掉waitpid

你这写法怎么是child process在waitpid???

我写反了阿？我试试