use strict;
use warnings;
use Net::Ping;

my $ping = Net::Ping->new('icmp',2);
$ping->hires;

my ($ret1,$delay1,undef) = $ping->ping($local);
print "($ret1,$delay1)\n";