$ perl -MB -E'$_=123; $_=undef; say B::class B::svref_2object \$_'
IV