What's wrong with

use LWP::Simple qw( get );
use Time::HiRes qw( time );

my $url = "http://www.perlmonks.org/";

my $start_time = time;
get($url);
my $end_time = time;

print("The transfer took ", $end_time-$start_time, " seconds.\n");
[download]

You could easily put that into a loop and take the average (but beware of caching proxies).

Update: oops, I was a bit slow at posting this!