gets stdin not working

Hi

I am writing a code in Tcl to take user input at run time. 

For example:

puts "Enter input"

set a [gets stdin].

However, I get the message 1]channel "stdin" wasn't opened for reading in the command window.

Please help me resolve the issue