my $p = Net::Ping->new(); $p->hires(); my $received = 0; for (1..4) { # 4 is the amount of packets transmitted my ($ret, $duration, $ip) = $p->ping($host, 5.5); $received++ if $ret; printf "Your RTT is %.2f ms\n", $duration * 1000; } printf "Received %i packets\n", $received;