#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new;
$mw->Label( -text  => $mw->screenheight . " x ". $mw->screenwidth )->pack;
MainLoop;