--- Coro/eg/dns	2001/07/28 01:41:58	1.1
+++ Coro/eg/dns	2008/11/24 04:56:38	1.4
@@ -1,22 +1,21 @@
 #!/usr/bin/perl
 
 use Coro;
-use Coro::Event;
 use Coro::Util;
+use Coro::AnyEvent;
 
 use Socket;
 
-# do some asynchroneous hostname resolution
+# 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";
-      };
-   }
+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;