$mw->after(2000, sub { $mw->destroy });
MainLoop;
warn "MainLoop ended; continuing...\n";