Here is the code:

use Net::Ping;
$push_ip_address="192.168.0.27";
print "$push_ip_address\n";  #just for grins
$p = Net::Ping->new();
print "OK \n" if $p->ping("$push_ip_address",2);
print "Pval $p\n";           #just to see
print "Nuts!! \n" unless $p->ping($push_ip_address,2);
$p->close();

Here is the result:

D:\test>perl testftp.pl
192.168.0.27
Pval Net::Ping=HASH(0x1b9f08c)
Nuts!!
done


So it doesn't appear to see the system. Yet, wise ones...


D:\test>ping 192.168.0.27

Pinging 192.168.0.27 with 32 bytes of data:

Reply from 192.168.0.27: bytes=32 time<10ms TTL=255
Reply from 192.168.0.27: bytes=32 time=10ms TTL=255