Perché non funziona questo???


codice:
#!/usr/bin/perl

use Net::Ping;


$host = 'google.it';

$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
non stampa nulla, e non capisco perché!! Ho provato anche a mettere un indirizzo ip al posto del nome dell'host, e nulla!

grazie