Select Code to Download

use X11::Protocol;
my $x = X11::Protocol->new();
...
      ' x ' .
      $x->{screens}->[0]->{height_in_pixels} .
      "\n";