in reply to Perl/TK get the Button's text

Maybe instead of using the -text option you could use the -textvariable option and print the content of the variable when the button is clicked