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

    -or-

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