--- a/hlog	Tue Jan 27 20:48:23 2009 +0100
+++ b/hlog	Tue Jan 27 20:50:54 2009 +0100
@@ -55,6 +55,7 @@
         ReuseAddr => 1,
     ) or die "Can't create listener socket: $!\n";
 
+    warn "listener $opt_addr:$opt_port\n";
     while (my $client = $listener->accept) {
 
         print LOG localtime()