in reply to CPAN.pm's ->get method destroys objects
Doesn't do that to me. Perl 5.8.0 on redhat 9. CPAN 1.76. $VAR1 looks the same before and after the ->get.
All code given here is UNTESTED unless otherwise stated.