$ perl -MScalar::Util=reftype -e'
   my $s = \*STDOUT;
   CORE::say reftype($s) eq "GLOB";
'
1