Select Code to Download

        my $button = $mw->Button(-text => $label);

    $button->configure(-command => [ \&show_button_label, $button ]);

    -or-

    $button->configure(-command => sub { show_button_label($button) })
+;

#!/usr/bin/perl

...
    my $label = $button->cget(-text);
    print "Label for button '$button' is '$label'\n";
}