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