/usr/share/doc/tclcurl/examples/upload.tcl is in tclcurl 7.22.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 | package require TclCurl
curl::transfer -url ftp://andres:ciclope4@127.0.01/cosa.tcl \
-infilesize [file size writeProc.tcl] -infile writeProc.tcl -upload 1 \
-verbose 1
|