Select Code to Download

$ perl -le 'open my $fh, "file"; print $fh;'
GLOB(0x814cc20)

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