use strict; use warnings; use Tk; my $main = MainWindow->new(); my ($width, $height) = ($main->screenwidth(), $main->screenheight()); print "Width: $width\nHeight: $height";