use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $name = $mw->screen;
my $height = $mw->screenheight; 
my $width = $mw->screenwidth; 
my $scaling = $mw->scaling;
my $heightmm = $mw->screenmmheight; 
my $widthmm = $mw->screenmmwidth;

print <<EOT;

screen name     $name
pixel width     $width 
pixel height    $height 
scaling         $scaling 
mm width        $widthmm
mm height       $heightmm

EOT

MainLoop;