use Tk::StayOnTop;
$mw->stayOnTop;