in reply to perl tk get user input

Try use Ask::Tk

In Section Seekers of Perl Wisdom