Select Code to Download

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

use B;
use feature qw( say );
...
   Foo
.
say B::class B::svref_2object *X{FORMAT};