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