% perl -le 'print bless +{}, "Foo"'        
Foo=HASH(0x814cbb8)