perl -wle'use B; use threads; use threads::shared; my $s:shared; $s = "123456"; my$t=threads->new(sub{$s}); use Devel::Peek; Dump $s; Dump ${ bless(\(my$x=is_shared($s)), "B::SV")->object_2svref }; $t->join()'