请教

初学perl，没想到一个例子没能成功，请看：

#!/usr/bin/perl -w

use Net:ing;
if(pingecho ("www.fanbagua.com",15)){
        print "Fanbagua is on the network.";
} else{
        print "Fanbagua is unreachable.";
}

#ping www.fanbagua.com
PING fanbagua.com (121.199.0.114) 56(84) bytes of data.
64 bytes from 121.199.0.114: icmp_seq=1 ttl=46 time=28.9 ms
64 bytes from 121.199.0.114: icmp_seq=2 ttl=46 time=23.8 ms

--- fanbagua.com ping statistics ---
2 packets transmitted, 2 received, 0% packet loss, time 1000ms
rtt min/avg/max/mdev = 23.876/26.431/28.986/2.555 ms


运行上边的perl脚本，结果为：Fanbagua is unreachable.
请指教，谢谢！

http://hi.baidu.com/cheneychen/b ... bb2331960a1665.html

谢谢！