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

my $p = new Net::Ping;
my $t0 = [gettimeofday];
$p->ping('www.yahoo.com');
print "Elapsed time:  ", tv_interval ( $t0, [gettimeofday]), "\n";