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