Help for this page
sub button_callback{ ... system( "your_program" ); $startbutton->configure(-state=>'normal'); }
sub button_callback{ ... }); }