if ( !Exists( $mm ) ) {
my $mm = $mw->Toplevel();
...