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