SYNOPSIS
use X11::Protocol;
use X11::Protocol::Connection::UNIXFH;
$conn = X11::Protocol::Connection::UNIXFH
->open($host, $display_number);
$x = X11::Protocol->new($conn);
use X11::Protocol;
use X11::Protocol::Connection::UNIXFH;
$conn = X11::Protocol::Connection::UNIXFH
->open($host, $display_number);
$x = X11::Protocol->new($conn);