use SOAP::Lite;

my $input = SOAP::Data->name('SCID')
                      ->value('2634244');
my $workorder = SOAP::Lite->service('http://vspclearcbuild.vodacom.corp/clearquest/byServiceCallID.WSDL')   
-> byServiceCallID($input);	
print "$workorder\n";\n	


##</code><code>##

<xsd:complexType name="__workorders">
<xsd:sequence>
<xsd:element name="workorder" nillable="true" type="tns:ArrayOf__workorder"/>
</xsd:sequence>
  </xsd:complexType>
   <xsd:complexType name="__workorder">
    <xsd:sequence>
     <xsd:element name="oid" nillable="true" type="xsd:string"/>
     <xsd:element name="id" nillable="true" type="xsd:string"/>
     <xsd:element name="description" nillable="true" type="xsd:string"/>
     <xsd:element name="assignToPerson" nillable="true" type="xsd:string"/>
     <xsd:element name="assignToWG" nillable="true" type="xsd:string"/>
     <xsd:element name="information" nillable="true" type="xsd:string"/>
    </xsd:sequence>
   </xsd:complexType>
   <xsd:complexType name="ArrayOf__workorder">
    <xsd:complexContent>
     <xsd:restriction base="SOAP_ENC:Array">
      <xsd:attribute ref="SOAP_ENC:arrayType" wsdl:arrayType="tns:__workorder[]"/>
     </xsd:restriction>
    </xsd:complexContent>
   </xsd:complexType>