Select Code to Download

use warnings;
use strict;
...
    no strict 'refs';
    print "\nInstance METHOD IS  " . Dumper( \%{ref ($obj)."::" }) ;
    }

Instance METHOD IS  $VAR1 = {
...
          'new' => *test::new,
          'Package' => *test::Package
        };