my $t_button = $mw->Button(-text=>'OK',
                           -command=>sub{exit});