Using Perl to Stress-Test Server Applications

use LWP::Simple;
  use Parallel::ForkManager;
 ...

# Max 30 processes because we have 30 nodes in the cluster
my $pm = new Parallel::ForkManager(30);

foreach my $number_of_nodes {
   $pm->start and next; # do the fork - the child process skips this 	loop
   # execute your server query here
   $pm->finish; # do the exit in the child process
}
$pm->wait_all_children;

Example 1: A simple construct for parallelizing.