if ( !Exists( $tl ) ) {
  $tl = $mw->Toplevel();
        
  $tl->protocol('WM_DELETE_WINDOW' => sub {
              print "do nothing here\n";
     });
......