Help for this page
$mw->geometry('100x100-0-0');
sub CenterWindow { ... $window->geometry($width . "x" . $height . "+" . $x . "+" .$y); }