QPID-4730: Losing object references in Perl.

Contributed by Hao Chang Yu <hyu@redhat.com>

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