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