I am using something like this to ping other hosts:

use strict;
use Net::Ping;
use Time::HiRes;

my $p = Net::Ping->new("icmp");
$p->hires();
while (1) {
    my ($ret, $duration, $ip) = $p->ping($host, 5);
    printf "02d:%02d:%02d,%d,%.0f\n",
           $hour,$min,$sec,$ret,$duration*1000;
    sleep 3;
}
[download]

This seems pretty close to the icmp example in the docs.

I get results of generally 16 ms or 0 ms. I never get a non-0 number less than 16 (and I get larger numbers in rough multiples of 16. So this looks like a Win32 issue of time granularity.

Is there something I can do?

Thanks, --traveler

Update: From reading lots of four-year-old posts here it seems that I have an old hires.dll, even though I have perl 5.8.1. Where do I get a new dll?