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