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