use LWP::Simple;
   use Bench;

fork();   #2
fork();   #4
fork();   #8
fork();   #16

&Bench::Start;

for (1..1000)
   {
    $content = get("http://localhost:5000/");
    print "Couldn't get it!" unless defined $content;
   }

print &Bench::EndReport;