ping via perl?

[w trillich <will@pinncomp.net>]

could this be a result of the perl5.004* vs. 5.005* situation?
if not, then--what?


#!/usr/bin/perl

use Net::Ping;

my $ip = "208.33.90.84";
my $wait = 5;

$p = Net::Ping->new();
print "$ip is alive.\n" if $p->ping($ip);
$p->close();

__END__


Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be
16 at /usr/lib/perl5/5.005/i386-linux/Socket.pm line 295, <IN> chunk 3.
        Socket::sockaddr_in(undef) called at
/usr/lib/perl5/5.005/Net/Ping.pm line 374
        Net::Ping::ping_udp('Net::Ping=HASH(0x829e990)', 'M-P!X^E', 5)
called at /usr/lib/perl5/5.005/Net/Ping.pm line 154
        Net::Ping::ping('Net::Ping=HASH(0x829e990)', 'speedex.net')
called at ping.pl line 9
Debugged program terminated.  Use q to quit or R to restart,