my $var = "1";
$parent->Button(-textvariable => \$var, -command => [ \&UpdateButton, $button, \$var]);