my $p = new Net::Ping;