#!/usr/bin/perl

use Coro;
use Coro::Event;
use Coro::Util;

use Socket;

# do some asynchronous hostname resolution

async { loop }; # run the Event loop as a separate coroutine

my @pid;

for my $x (1..255) {
   push @pid, async {
      my $addr = "129.13.162.$x";
      print "$addr => ",(scalar gethostbyaddr inet_aton($addr), AF_INET),"\n";
   };
}

$_->join for @pid;