Hi All,
 
    Please help me, Why the ping method in the prg. doesn't return a true value? I don't understand it.
 
Thanks: Beci
 

#!/usr/bin/perl -w
use Socket;
use Net::Ping;
 
$iaddr=inet_aton("127.0.0.1"); # or other address
 
$p = Net::Ping->new();
print "Host is alive" if $p->ping($iaddr);
$p->close();
 

Reply via email to