$ perl -MScalar::Util=reftype -e'
   CORE::say ref(\*FOO);
   CORE::say reftype(\*FOO);
   bless(\*FOO);
   CORE::say ref(\*FOO); 
   CORE::say reftype(\*FOO);
'
GLOB
GLOB
main
GLOB