#!/usr/bin/perl -w use LWP::UserAgent; $url = "http://localhost/test.html"; $starttime = time; $max = 100; $count = 0; $lastdelta = 0; print "Time\tRequests"; do { &Do; $count++; $delta = time - $starttime; if ($delta != $lastdelta) { print "\n$delta\t$count"; $lastdelta = $delta; } }while($delta<=$max); sub Do { $req = HTTP::Request->new( GET => $url ); $ua = LWP::UserAgent->new(); $ua->request($req); }