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