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

use Wx();

my $name = Wx::Display->new->GetName;
my $dc =  Wx::ScreenDC->new;
my( $width, $height ) = $dc->GetSizeWH ;
my $scaling  = ' ??? ';
my $ppi = join ' x ', $dc->GetPPI->GetHeight, $dc->GetPPI->GetWidth;
my( $widthmm  ,  $heightmm ) = $dc->GetSizeMMWH();

print <<EOT;

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

EOT


__END__

screen name     \\.\DISPLAY1
pixel width     1024
pixel height    768
scaling          ???
ppi             96 x 96
mm width        280
mm height       210