sub Exit {
    $_[0] = "Destroy!";
    $mw->destroy ();
}