--- Coro/eg/dns	2007/04/14 15:06:06	1.3
+++ Coro/eg/dns	2008/11/24 04:56:38	1.4
@@ -1,15 +1,13 @@
 #!/usr/bin/perl
 
 use Coro;
-use Coro::Event;
 use Coro::Util;
+use Coro::AnyEvent;
 
 use Socket;
 
 # do some asynchronous hostname resolution
 
-async { loop }; # run the Event loop as a separate coroutine
-
 my @pid;
 
 for my $x (1..255) {