#!/usr/bin/perl
# Author: Peter R. Wood, http://prwdot.org/

use strict;

use Time::HiRes qw( gettimeofday tv_interval );
use LWP::Simple;

my $num_samples = 20;
my $sleep       = 1;

my @urls = qw(
);

my $content = "";
my %url_results;

foreach my $url (@urls) {
    print "\n===========================\n";
    print "URL: $url\n";
    my $iter;
    for ( $iter = 1 ; $iter <= $num_samples ; $iter++ ) {
        my @start = gettimeofday();
        $content = get($url);
        my @end = gettimeofday();
        my $elapsed = tv_interval( \@start, \@end );
        $url_results{$url} += $elapsed;
        print "Test $iter Elapsed: $elapsed\n";
        sleep($sleep);
    }
    my $average_elapsed = $url_results{$url} / $num_samples;
    print "Average for $url: $average_elapsed";
    print "\n===========================\n";
}