my $push;



$push = $mw->Button( -text => "test ",
	-command => sub {
		#disable $push 
		$push->configure(-state=>'disabled');
  
		#do something

		#enable $push
		$push->configure(-state=>'normal');
	},
)->pack();