標準入力を閉じるのはたぶん無理。

set fd [open testbinaryfile.dat r]
fconfigure $fd -translation binary
set data [read $fd]