Select Code to Download

<?xml version="1.0"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envel
+ope/">
...
    </dlwmin:getBookById>
  </soapenv:Body>
</soapenv:Envelope>

use strict;
use warnings;
...
   print("$bk - $bk_name");
}
}

use strict;
use XML::Simple;
...
my $doc = XMLin('out.xml');

print Dumper($doc);