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

my $t0 = [gettimeofday];
my $d=get('http://www.perlmonks.org');
my $elapsed=tv_interval ( $t0, [gettimeofday]);
my $throughput=length($d)/$elapsed;
print "throughput=$throughput Bytes per second\n";