How to get user input in tcl-tk?

p16.tcl

#!/bin/tclsh

puts "Enter Your name: "
set name [gets stdin]
puts "Your name is : $name "