print "$host is alive.\n" if $p->ping($host);
$p->close();