>perl -le "my $g = \do{ local *GLORB; *GLORB }; print $g; print *$g"
GLOB(0x225f08)
*main::GLORB