#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Request;

my $message = '<?xml version="1.0" encoding="UTF-8"?>
   <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
      <soapenv:Body>
         <ns1:searchEstablishments soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="urn:ccc-search">
            <searchRequest href="#id0"/>
         </ns1:searchEstablishments>
         <multiRef id="id0" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="ns2:SearchRequest" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns2="http://request.services.ccc.imbs.strategis.ic.gc.ca">
            <docsPage href="#id1">2</docsPage>
            <docsPerPage href="#id2">25</docsPerPage>
            <entityServiceCode xsi:type="soapenc:string">ES</entityServiceCode>
            <language xsi:type="soapenc:string">eng</language>
            <maxResults href="#id3">200</maxResults>
            <remoteBusinessPartner xsi:type="soapenc:string">xxx</remoteBusinessPartner>
            <remotePassword xsi:type="soapenc:string">xxx</remotePassword>
            <remoteServerAddress xsi:type="soapenc:string">xxx</remoteServerAddress>
            <searchCriteria href="#id4"/>
            <strategisPassword xsi:type="soapenc:string" xsi:nil="true"/>
            <strategisUserName xsi:type="soapenc:string" xsi:nil="true"/>
         </multiRef>
         <multiRef id="id3" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:int" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">100</multiRef>
         <multiRef id="id4" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="ns3:SearchCriteriaBean" xmlns:ns3="http://model.services.ccc.imbs.strategis.ic.gc.ca" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
            <areaServed xsi:type="ns4:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns4="urn:ccc-search"/>
            <budget xsi:type="ns5:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns5="urn:ccc-search"/>
            <coAnlTotSlsCd xsi:type="ns6:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns6="urn:ccc-search"/>
            <coAnlXprtSlsCd xsi:type="ns7:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns7="urn:ccc-search"/>
            <coCageCd xsi:type="soapenc:string" xsi:nil="true"/>
            <coDandBNo xsi:type="soapenc:string" xsi:nil="true"/>
            <coDandBSfx xsi:type="soapenc:string" xsi:nil="true"/>
            <coPrdctNm xsi:type="soapenc:string" xsi:nil="true"/>
            <coTypCd xsi:type="ns8:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns8="urn:ccc-search"/>
            <coXprtgActvIntInd xsi:type="soapenc:string" xsi:nil="true"/>
            <coXprtrInd xsi:type="soapenc:string" xsi:nil="true"/>
            <column xsi:type="soapenc:string">nm</column>
            <companyProfile xsi:type="soapenc:string" xsi:nil="true"/>
            <conceptOperator xsi:type="soapenc:string">and</conceptOperator>
            <estblmtCdaEmpCnt xsi:type="ns9:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns9="urn:ccc-search"/>
            <estblmtCtyNm xsi:type="soapenc:string" xsi:nil="true"/>
            <estblmtNm xsi:type="soapenc:string" xsi:nil="true"/>
            <estblmtPstlZipCd xsi:type="soapenc:string" xsi:nil="true"/>
            <fscCode xsi:type="soapenc:string" xsi:nil="true"/>
            <hitsPerPage xsi:type="soapenc:string">250</hitsPerPage>
            <indusCd xsi:type="ns10:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns10="urn:ccc-search"/>
            <indusCdNm xsi:type="soapenc:string" xsi:nil="true"/>
            <isSummaryOn xsi:type="soapenc:string" xsi:nil="true"/>
            <isoCntryNo xsi:type="ns11:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns11="urn:ccc-search"/>
            <isoProvSteCd xsi:type="ns12:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns12="urn:ccc-search"/>
            <jcoNo xsi:type="soapenc:string" xsi:nil="true"/>
            <niinCode xsi:type="soapenc:string" xsi:nil="true"/>
            <nsnCode xsi:type="ns13:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns13="urn:ccc-search"/>
            <numberOfDocumentsReturned xsi:type="soapenc:string">100</numberOfDocumentsReturned>
            <numberOfMembers xsi:type="ns14:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns14="urn:ccc-search"/>
            <numberOfVolunteers xsi:type="ns15:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns15="urn:ccc-search"/>
            <orgFocus xsi:type="ns16:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns16="urn:ccc-search"/>
            <organizationType xsi:type="soapenc:string" xsi:nil="true"/>
            <portal xsi:type="soapenc:string" xsi:nil="true"/>
            <prdctCtgryCd xsi:type="ns17:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns17="urn:ccc-search"/>
            <provSteShrtNm xsi:type="ns18:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns18="urn:ccc-search"/>
            <qltyCrtftnShrtDesc xsi:type="ns19:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns19="urn:ccc-search"/>
            <sctrCd xsi:type="ns20:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns20="urn:ccc-search"/>
            <sectorFocus xsi:type="ns21:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns21="urn:ccc-search"/>
            <sortSpec xsi:type="soapenc:string">coid asc</sortSpec>
            <strategicAlliances xsi:type="ns22:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns22="urn:ccc-search"/>
            <subPortal xsi:type="soapenc:string" xsi:nil="true"/>
            <tagId xsi:type="ns23:ArrayOf_xsd_string" xsi:nil="true" xmlns:ns23="urn:ccc-search"/>
            <textField xsi:type="soapenc:string">business</textField>
            <unspscCodeText xsi:type="soapenc:string" xsi:nil="true"/>
         </multiRef>
         <multiRef id="id2" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:int" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">10</multiRef>
         <multiRef id="id1" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:int" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">1</multiRef>
      </soapenv:Body>
   </soapenv:Envelope>';

my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(GET => 'https://xxx');
$request->header(SOAPAction => 'https://xxx');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);

if($response->code == 200) {
	print $response->as_string;
}
else {
	print $response->error_as_HTML;
}