use strict;
use warnings;
use SOAP::Lite 'trace', 'debug';


my $xmltest = <<EOF;
	<episodicProgrammePlaceholder xmlns="http://www.cnnmedia.com">
		<titleID>SN_DELETE</titleID>
		<messageAction>Create</messageAction>
		<doNotUse>false</doNotUse>
		<programmeType>SN</programmeType>
		<programmeLabel>DELETE</programmeLabel>
		<subTypeCode>Primary</subTypeCode>
		<titles>
			<title>
				<titleName><![CDATA[DELETE]]></titleName>
				 <titleLang>ENG</titleLang>
				 <titleType>Primary Legal</titleType>
			</title>
		</titles>
		<synopses>
		<synopsis>
			<synopsisText>Set in the fictional town of Gulfhaven, Florida (nicknamed "Cougar Town" since its high school teams are the Cougars), the series focuses on a recently divorced woman in her forties facing the often humorous challenges, pitfalls, and rewards of life's next chapter, along with her son, ex-husband, and wine-loving friends who together make up her dysfunctional, but supportive and caring extended family.</synopsisText>
			<synopsisLang>ENG</synopsisLang>
			<synopsisType>Turner Internal</synopsisType>
		</synopsis>
		 </synopses>
		 <keywords>
		 <keyword>
				<keywordID>Red Wine</keywordID>
				<keywordLang>ENG</keywordLang>
				<keywordRelevance>1</keywordRelevance>
			</keyword>
		 </keywords>
		 <genres>
		 <genre>Comedy</genre>
		 </genres>
		 <participations></participations>
		 <studios></studios>
		<compliances>
			<compliance>
				<complianceCode>OFCOM</complianceCode>
				<complianceName>OFCOM</complianceName>
				<doNotUse>false</doNotUse>
			</compliance>
		</compliances>
	</episodicProgrammePlaceholder>
EOF



my $soap =  SOAP::Lite
               -> service('http://user:password@lonsmam-is1:5555/ws/tbselXenWebService:XenTxWS?WSDL')		
                -> outputxml(1);

$soap->serializer->register_ns('http://www.cnnmedia.com', 'cnn' );
$soap -> processEpisodicProgramme(SOAP::Data->type( 'xml' => $xmltest ));

##</code><code>##

<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap
.org/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://www.cnnmedia.com" xmlns:wsdl="http://schemas.xmlsoap.
org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">

##</code><code>##

$soap->serializer->register_ns('http://www.cnnmedia.com', 'cnn' );