Adds additional logs to TLSProxy

util/perl/TLSProxy/Proxy.pm

@@ -351,6 +351,8 @@ sub start
     # Connect right away...
     $self->connect_to_server();
 
+    print STDERR "Proxy connected to server\n";
+
     return $self->clientstart;
 }
 
@@ -395,6 +397,7 @@ sub clientstart
             print STDERR "Client command: $execcmd\n";
         }
 
+        print STDERR "Starting s_client\n";
         open(my $savedout, ">&STDOUT");
         # If we open pipe with new descriptor, attempt to close it,
         # explicitly or implicitly, would incur waitpid and effectively
@@ -404,10 +407,13 @@ sub clientstart
             kill(3, $self->{real_serverpid});
             die "Failed to $execcmd: $err\n";
         }
+        print STDERR "s_client started\n";
         $self->{clientpid} = $pid;
 
         # queue [magic] input
-        print $self->reneg ? "R" : "test";
+        my $client_input = $self->reneg ? "R" : "test";
+        print STDERR "Queueing s_client input:'$client_input'\n";
+        print $client_input;
 
         # this closes client's stdin without waiting for its pid
         open(STDOUT, ">&", $savedout);