$mw->Walk(sub { $_->isa("Tk::Toplevel") and $_->withdraw })