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