use Net::Ping;

 $pinghost = Net::Ping->new("tcp");
#Protocol for ping must be "icmp","udp","tcp","syn","stream",or "external"
?$domain = "sohu.com";
 $ip = "184.22.37.92";

# if ($pinghost->ping('184.22.37.92')){
 if ($pinghost->ping($domain)){
 print "active.n";
 } else
 {
 print "inactive.n";
 }

 $pinghost->close();

perl ping-> 主机

http://hi.baidu.com/835094561/blog/item/b8b88d3f855f65e655e72371.html

perl ping检测脚本

http://baiqiuyi.com/perl/perl-ping-icmp-monitor.html

ping一段网络的perl脚本