How to use backspace when taking input from user in tcl?

Question

Here is part of my code.

puts -nonewline "Enter your device name: "
flush stdout
set device [gets stdin]

I am taking input from use