Select Code to Download

my $expresspaymentresponse = $response->valueof('//SetExpressCheckoutR
+esponse/Token');

[CODE]#!/usr/bin/perl

...

print "$teststring";
exit;

<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:SOAP-EN
+V="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://
+schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/1999
+/XMLSchema-instance" xmlns:xsd="http://www.w3.org/1999/XMLSchema" xml
+ns:xs="http://www.w3.org/2001/XMLSchema" xmlns:cc="urn:ebay:apis:Core
+ComponentTypes" xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/07/util
+ity" xmlns:saml="urn:oasis:names:tc:SAML:1.0:assertion" xmlns:ds="htt
+p://www.w3.org/2000/09/xmldsig#" xmlns:wsse="http://schemas.xmlsoap.o
+rg/ws/2002/12/secext" xmlns:ebl="urn:ebay:apis:eBLBaseComponents" xml
+ns:ns="urn:ebay:api:PayPalAPI"><SOAP-ENV:Header><Security xmlns="http
+://schemas.xmlsoap.org/ws/2002/12/secext" xsi:type="wsse:SecurityType
+"></Security><RequesterCredentials xmlns="urn:ebay:api:PayPalAPI" xsi
+:type="ebl:CustomSecurityHeaderType"><Credentials xmlns="urn:ebay:api
+s:eBLBaseComponents" xsi:type="ebl:UserIdPasswordType"><Username xsi:
+type="xs:string"></Username><Password xsi:type="xs:string"></Password
+><Subject xsi:type="xs:string"></Subject></Credentials></RequesterCre
+dentials></SOAP-ENV:Header><SOAP-ENV:Body id="_0"><SetExpressCheckout
+Response xmlns="urn:ebay:api:PayPalAPI"><Timestamp xmlns="urn:ebay:ap
+is:eBLBaseComponents">2005-09-10T04:32:10Z</Timestamp><Ack xmlns="urn
+:ebay:apis:eBLBaseComponents">Success</Ack><CorrelationID xmlns="urn:
+ebay:apis:eBLBaseComponents">NotSet</CorrelationID><Version xmlns="ur
+n:ebay:apis:eBLBaseComponents">1.000000</Version><Build xmlns="urn:eb
+ay:apis:eBLBaseComponents">1.0006</Build><Token xsi:type="ebl:Express
+CheckoutTokenType">EC-1K6559638C886540F</Token></SetExpressCheckoutRe
+sponse></SOAP-ENV:Body></SOAP-ENV:Envelope>