#! 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;