(Perl) Send XMLHttpRequest and Get Response

Demonstrates how to send an HTTP XML request and retrieve the response.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$http = new chilkat::CkHttp();

#  Any string unlocks the component for the 1st 30-days.
$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  The XML sent in the body of the request is application
#  specified -- it should contain whatever the server-side
#  application is expecting..
$xmlStr = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><appXml><something>123</something></appXml>";

#  The PostXml method may be called to send the XMLHttpRequest
#  using the "POST" HTTP method (also known as "verb").
$urlEndpoint = "http://www.chilkatsoft.com/xmlEcho.asp";
$xmlCharset = "utf-8";

# response is a CkHttpResponse
$response = $http->PostXml($urlEndpoint,$xmlStr,$xmlCharset);
if ($response eq null ) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  The raw HTTP request sent by the above call is:
#  
POST /xmlEcho.asp HTTP/1.1
Content-Type: text/xml
User-Agent: Chilkat/1.0.0 (+http://www.chilkatsoft.com/ChilkatHttpUA.asp)
Host: www.chilkatsoft.com
Accept: */*
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*; q=0.7
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip
Content-Length: 81

<?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>


#  Examine the Body of the HTTP response
#  This would be the XML response sent by the server.
print $response->bodyStr() . "\r\n";