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

printf ("screenwidth: %d, screenheight: %d\n", $mw->screenwidth, $mw->screenheight);