Help for this page
use Net::Ping; use Time::HiRes qw( usleep ualarm gettimeofday tv_interval ); ... my $t0 = [gettimeofday]; $p->ping('www.yahoo.com'); print "Elapsed time: ", tv_interval ( $t0, [gettimeofday]), "\n";
[bogus@www bin]$ ping -c 1 www.yahoo.com PING www.yahoo.akadns.net (216.32.74.50) from 216.90.131.2 : 56(84) by +tes of data. ... 1 packets transmitted, 1 packets received, 0% packet loss round-trip min/avg/max/mdev = 101.953/101.953/101.953/0.000 ms [bogus@www bin]$