my $globref = \*GLOB;
*$globref = sub { print "Glob\n" };
GLOB();

##</code><code>##

my $globref = \do { local *GLOB };
print $globref, "\n"; # prints GLOB(0x.......)
*$globref = 1;
print $globref, "\n"; # prints SCALAR(0x.......)