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