my $x = \*FH;
print "plain glob ref: <$x>\n";
# prints: plain glob ref: <GLOB(0x1d6c660)>
open ($x, "<","somefile") or warn "error\n";
print "open FH ref: <$x>\n";
# prints: open FH ref: <GLOB(0x1d6c660)>