my $kill_button = $mw->Button( -text => 'Stop',
                          -command=> sub{ $exec->kill_command;   }
                          )->pack();