pack [entry .e1 -textvar input]

# show the content at any time by
puts $input