Hi, I am having difficulty getting the Net::Ping module to work properly. I am using ActivePerl 5.6.1.631 on a win32 platform. I can ping a server in a dos prompt ok, but when I try to get the Perl Net::Ping to work it always returns a failure. It seems to ponder over pinging the host for a couple of seconds, and then return a zero as a result, which means that it could not reach the host, if my interpretation of the docs is correct.
Here is the snippet in question: my ($pingThing, $host, $pingResult); $host = 'www.google.com'; $pingThing = Net::Ping->new("tcp", 1); $pingResult = $pingThing->ping($host); print "$pingResult\n"; if($pingResult == 1){print "$host is alive.\n";} else{print "$host could not be pinged\n";} $pingThing->close(); Am I doing something wrong here, or do I need some other module that I am unaware of? I find this sort of bizarre, as I have LWP doing a successful page fetch, so the module can obviously access the web. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.325 / Virus Database: 182 - Release Date: 2/20/02 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]