1 package require TclCurl
3 # This is one contrived example, but it works.
5 proc writeToFile {readData} {
6 puts "writeToFile called [incr ::i]"
7 puts -nonewline $::outFile $readData
14 set outFile [open "cosa.tar" w+]
15 fconfigure $outFile -translation binary
17 curl::transfer -url "127.0.0.1/~andres/cosa&co.tar" -writeproc writeToFile