After poking around a bit (and finding that Inline::C is broken on my nearest installation) I found this, which seems to do something similar to what I want. Is it right? I'm playing with toys I don't fully understand.
use B 'svref_2object';
my $objref = {};
my $another = $objref;
print svref_2object($objref)->REFCNT;