Select Code to Download

<soapenv:Envelope
    xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
    <soapenv:Header>
...
       blah... blah... blah...
    </soapenv:Body>
</soapenv:Envelope>

use strict;

...
        return('ok');
    }
}

use strict;

...
    # Read in a text file without using open
    return(do { local( @ARGV, $/ ) = $file ; <> });
}

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope soap:encodingStyl
+e="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://sche
+mas.xmlsoap.org/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap
+.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xml
+ns:xsi="http://www.w3.org/2001/XMLSchema-instance"><soap:Body><soap:F
+ault><faultcode>soap:MustUnderstand</faultcode><faultstring>Unrecogni
+zed header has mustUnderstand attribute set to 'true'</faultstring></
+soap:Fault></soap:Body></soap:Envelope>