Here you go a complete stress test suite in 10 26 lines of perl :)
#! perl -slw
use strict;
use threads;
use LWP::Simple;
use Time::HiRes qw[sleep];
$!=1;
print "Usage $0 [-T=10] [-R=1.0] [-MAX=30] url"
unless $ARGV[ 0 ];
## Number of threads (simultaneuos callers)
our $T ||= 10;
## Fire rate in decimal seconds (0.1 once per 1/10 sec/thread)
our $R ||= 1.0;
## Seconds to sustain the burst.
our $MAX ||= 30;
async {
getprint( $ARGV[ 0 ] ) while sleep( rand( $R ) );
} for 1 .. $T;
sleep $MAX;
WARNING: Be careful who you aim it at!
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algoritm, algorithm on the code side." - tachyon