diff --git a/lib/Qpsmtpd/TcpServer.pm b/lib/Qpsmtpd/TcpServer.pm
index 0ba26db..d2240c5 100644
--- a/lib/Qpsmtpd/TcpServer.pm
+++ b/lib/Qpsmtpd/TcpServer.pm
@@ -81,6 +81,7 @@ sub respond {
 
 sub disconnect {
   my $self = shift;
+  $self->log(LOGDEBUG,"click, disconnecting");
   $self->SUPER::disconnect(@_);
   exit;
 }