# Configuration
  $Host="ххх";
  $Port="хх";

  #PanTiltSingleMove:
  # 0 1 2
  # 3 4 5
  # 6 7 8

  $ReqBody = "PanSingleMoveDegree=$pan&TiltSingleMoveDegree=$tilt&PanTiltSingleMove=$dir1";
  $URI="/PANTILTCONTROL.CGI";
  $ReqHeader =
  "POST $URI HTTP/1.1\n".
  "Authorization: Basic ".base64_encode("guest")."\n".
  "Host: $Host:$Port\n".
  "Content-Type: application/x-www-form-urlencoded\n".
  "Content-Length: ".strlen($ReqBody)."\n\n";
  $Zapros=$ReqHeader."$ReqBody\n";

  // Open the connection to the host
  $socket = fsockopen($Host, $Port, &$errno, &$errstr);
  if (!$socket)
  {
    echo "error";
  } else {
    fputs($socket, $Zapros);
    $idx = 0;
    while (!feof($socket)) {$Result1[$idx++] = fgets($socket, 128);}
  }