This show how to size and position a Tk top level window. In the sample code the window is 100 x 200 pixels and is positioned 500 pixels from the left edge of the window and 10 pixels down from the top.
use warnings;
use strict;
use Tk;
my $main = MainWindow->new ();
$main->geometry('100x200+500+10');
MainLoop;