bless $tied_object, 'Foo';