Select Code to Download

# Like tcp protocol, but with many hosts
$p = Net::Ping->new("syn");
...
while (($host,$rtt,$ip) = $p->ack) {
    print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
}