Create an executable file that copies stdin to stdout, or else a script that does so through the invocation of an interpreter at the command line.

package require Tcl 8.5
 
chan copy stdin stdout
# fcopy stdin stdout for older versions