FWIW, there is no need to resort to the Tcl blocking method, you can use $server->blocking(0);