[0]{} Perl> print ref() for \my $fh, \*fh, my $ref = \*fh;;
SCALAR
GLOB
GLOB