my $sobj : shared;
my $sref = \do{ my $x };
share($sref);
$sobj = $sref;
bless $sobj, 'baz';
print ref $sobj, "\n";

$ perl587t /tmp/a.pl
SCALAR
$ perl588t /tmp/a.pl
baz