Tk::exit;

##</code><code>##

$mw->destroy;