From Frank Smith  we are told that
if you have Extended Tcl, you can

   read $fileId [fstat $fileId size]

This will read only the number of bytes currently available on `fileId`
and consequently will not block.