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";

##</code><code>##

use Time::HiRes qw( gettimeofday tv_interval );
use Net::Ping;

my $p = Net::Ping->new("icmp");
my $t0 = [gettimeofday];
$p->ping('127.0.0.1',5);
my $elapsed=tv_interval ( $t0, [gettimeofday]);
print "latency=$elapsed\n";