Net:Ping da problemas

[Juan Carlos Muro <sadacia@teleline.es>]

Hola. Tengo un problema al ejecutar un script Perl. Me da el error que
podemos ver abajo. Hace unos días no me ocurría. De repente empezó a
fallar en dos máquinas que tengo con Debian. ¿Puede ser algo relacionado
con las versiones?

jcmuro@lennon:~/Programacion/Tenaria$ cat pru.pl
#!/usr/bin/perl

use Net::Ping;

    my $host;
    print "\n*Hostname o IP?: ";
    $host=<STDIN>;
    chop($host);

    print "\nComprobando $host:";
    #$p = Net::Ping->new($> ? 'udp' : 'icmp',$TIMEOUT);
    $p = Net::Ping->new($> ? 'udp' : 'icmp');
    if ($p->ping($host)) { print " VIVO!\n";  }
    else                 { print " MUETO!\n"; }
    $p->close();
jcmuro@lennon:~/Programacion/Tenaria$ ./pru.pl

*Hostname o IP?: 127.0.0.1

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, <STDIN> chunk 1.
Comprobando 127.0.0.1:
jcmuro@lennon:~/Programacion/Tenaria$

Saludos y gracias:

Juan Carlos Muro