open FOO,    "file"; print ref \*FOO; # prints GLOB
open my $fh, "file"; print ref \*$fh; # prints GLOB