tcllib/examples/ftpd