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;
[download]

WARNING: Be careful who you aim it at!