#!/usr/bin/perl -w

package Brutal::Web::Server::Test;

use strict;
use LWP::Simple;

my $kids  = 100;
my $hits_per_kid = 50;
my $output;

while ($kids) {
    my $pid = fork;
    # Parent
    if ($pid) { 
      $kids--; 
    }
    elsif ($pid == 0) {
        do {$output = get('http://www.mysitegoeshere.org') }  for 1 .. $hits_per_kid;
      exit;
    }
    else {
        die "Fork failed $!\n";
    }
}