This problem is now solved in pure perl using Devel::Pointer::PP which relys on a new method introduced in perl 5.8.1's B module.