set in_fid [open $in_file]
set out_fid [open $out_file {CREAT RDWR}]
while {[gets $in_fid in_text] >= 0} {
    puts $out_fid "$in_text"
}
close $in_fid; close $out_fid
file copy $out_file $in_file