$mw->Button(-text => 'Exit', -command => sub {$mw->destroy})->pack;