use Tk;
my $mw = MainWindow->new();
print $mw->geometry();