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; }