#!/usr/local/bin/perl

use strict;

use LWP::Simple;
use Time::HiRes;

my $totalTime = 0;

my $i;

for ($i=0; $i < 20; $i++) {

     my $before = Time::HiRes::gettimeofday();

     if ( !defined( my $content = LWP::Simple::get('http://chicodigital.com/cgi-bin/temp/webtool.cgi'))) {
             print "failed get\n"; }

     my $elapsed = Time::HiRes::gettimeofday() - $before;

     print "get $i in $elapsed seconds.\n";

     $totalTime = $totalTime + $elapsed;
}

$totalTime = $totalTime / 20;

print "Average response time for 20 requests was: $totalTime seconds.\n";