Help for this page
$p = Net::Ping->new("udp");
$p = Net::Ping->new("tcp");
$p = Net::Ping->new("icmp");