if (! Exists($top_lvl_win)) {
    $top_lvl_win= $mw->Toplevel();