stale_connection => sub { 
   my ($s,$conn,$key) = @_;
   print "Stale Connection\n".${$conn->recv_buffer}."\n";
   $conn->log->("$key is stale.");
   $s->remove_connection($key);
},

##</code><code>##

print ${$self->recv_buffer};