my $empty_button=$mw->Button(
      -text => 'EMPTY',
      -command => sub{
    		if($out_text and $running) {
      			$out_text->delete(0,'end');
    		}
      });
    $empty_button->pack();