my $p=Net::Ping->new('icmp');