simply use LWP::Simple and Benchmark:

use strict;
use warnings;

use Benchmark;
use LWP::Simple;

my $t = timeit(1, sub { get "http://www.perlmonks.org"; });
print timestr($t),"\n";
[download]