Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

i have a perl/tk program witch is just a text widget, and a button, and i want the text to change everytime i click the button. so i need to be able to change the command of the button each time it is clicked, does anybody know how to do this? here is the code:
#!/usr/bin/perl use strict; use warnings; use Tk; sub one; my $main = MainWindow->new; my $label1 = $main->Text ( '-width'=>'50' )->pack; my $button = $main->Button ( -text=>'next', -command=>sub{one} )->pack; MainLoop; sub one { my $talk2="number1"; my $talk="this text will be changing after every click of the butt +on."; $label1 -> insert('1.0',"$talk"); my $button = $main->Button(-text=>'next',-command=>sub{two})->pack +; } sub two { # change the text box again }