Select Code to Download

sub button_callback{

...
system( "your_program" );
$startbutton->configure(-state=>'normal');
}

sub button_callback{

...
       });

}