[Perl] Ping

Descrizione
Pinga un host.

Codice
use Net::Ping;
$host = "v3rgil.altervista.org";
$p = Net::Ping->new() or die "Impossibile pingare: $!\n";
print "$host is alive\n" if $p->ping($host);
$p->close;
system("pause");