Hi. I am a Perl Newbie (so my Question might be silly) and I tried to try the Net::Ping Module:

#!/usr/bin/perl -w
use Net::Ping;
foreach $IP ("192.168.0.4","192.168.0.21","192.168.0.34") {
  $p = Net::Ping->new();
  next unless $p->ping($IP);
  $p->close;
}
[download]

The error-message I get is: Use of uninitialized value in subroutine entry at /usr/lib/perl5/5.6.0/i586-linux/Socket.pm line 311. Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at /usr/lib/perl5/5.6.0/i586-linux/Socket.pm line 311. The hosts are command-line-pingeable therefore I am absolutly clueless. Regards