What exactly doesn't function properly? I had to add my before $inp=$txt->get(); to make the script work with use strict, but afterwards, pressing Quit printed out the value I entered in the Entry...

Of course, if you actually mean the button to quit after printing the text, you should add an exit command in the subroutine... :)