my $var = "1";
my $button = $parent->Button(-text => $var);
$button->configure(-command => sub {
    $var = &UpdateValue($var);
    $button->configure('-text' => $var)
});