$p = Net::Ping->new("icmp"); [download]
In reply to Re: Ping and Linux firewall by trippledubs in thread Ping and Linux firewall by BrianDStark