use strict;
use warnings;

use Tk;

my $main = MainWindow->new();
my ($width, $height) = ($main->screenwidth(), $main->screenheight());

print "Width: $width\nHeight: $height";
[download]