use Tk::StayOnTop;
$main->stayOnTop if ($vis == 1);