BEGIN {
  *CORE::GLOBAL::glob = sub { "glob overriden" };
}
print glob('a pattern'), "\n";

*CORE::GLOBAL::join = sub { print "n/a" };

print join(' ', qw/ join not overridden /), "\n";

__output__

glob overriden
join not overridden