package require TclCurl

curl::transfer -url "ftp://127.0.0.1/pub/" -ftplistonly 1