perl -we 'print bless( \sub {}, "Foo" ) . "\n";' Foo=REF(0x82998c4)