QPID-5546: Expose the get_content_object method in Perl.

Updated the spout and drain examples to use this rather than
encode/decode to retrieve the content of a message.

git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk@1567173 13f79535-47bb-0310-9956-ffa450edef68