Select Code to Download

<test>
  <name> 111 </name>
...
  <name> 111 </name>
  <book> abc </book>
</test>

open(CP,"<cpsFile.log")
while(<CP>)
...
       $soapLine.=$_;
}
print TRADE "$soapLine";