--- Coro/eg/event	2001/07/27 02:51:33	1.8
+++ Coro/eg/event	2002/04/14 01:18:38	1.9
@@ -12,7 +12,7 @@
    my $host = shift;
 
    my $fh = new Coro::Socket PeerHost => $host, PeerPort => "finger"
-      or die;
+      or die "$user\@$host: $!";
 
    print $fh "$user\n";
 
@@ -40,6 +40,8 @@
    }
 }
 
+async { finger("root", "localhost") };
+
 # display the time or garble the display, YMMV.
 sub timer : Coro {
    my $w = Coro::Event->timer(interval => 0.001, hard => 1);