#automatic close after time $mw->after(3000, sub { $mw->destroy; });