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

##</code><code>##

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