--- Coro/eg/dns	2001/09/03 02:50:18	1.2
+++ Coro/eg/dns	2007/04/14 15:06:06	1.3
@@ -8,15 +8,16 @@
 
 # do some asynchronous hostname resolution
 
-async {
-   for my $x (1..255) {
-      use Data::Dumper;
-      async {
-         my $addr = "129.13.162.$x";
-         print "$addr => ",(scalar gethostbyaddr inet_aton($addr), AF_INET),"\n";
-      };
-   }
+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;
 
-loop;