1#!/usr/bin/env tclsh 2package require XOTcl; namespace import -force xotcl::* 3 4@ @File {description { A tiny FTP client }} 5 6package require xotcl::comm::ftp 7 8SimpleRequest r1 -url ftp://prep.ai.mit.edu/README 9if {[r1 success]} { 10 puts "Got:" 11 puts [r1 getContent] 12} 13