Select Code to Download

use LWP::Simple;
use Time::HiRes qw( gettimeofday tv_interval );
...
my $elapsed=tv_interval ( $t0, [gettimeofday]);
my $throughput=length($d)/$elapsed;
print "throughput=$throughput Bytes per second\n";

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