$window->raise;

##</code><code>##

  $mw->after(50, sub {$dialog->raise});
  $dialog->Show;