$button = $mw->Button(
      -text => 'Stop thread',
       -command => sub{
        $button->configure(-state=>'disabled');
        $die = 1;
       $thr->join;
      },
     )->pack();