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

##</code><code>##

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

##</code><code>##

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