print Dumper $object 

##</code><code>##

$VAR1 = bless( {}, 'Some::Object' );