*CORE::GLOBAL::system = sub { print "system\n" };
*CORE::GLOBAL::chdir = sub { print "chdir\n" };
*CORE::GLOBAL::glob = sub { print "glob\n" };

glob; chdir; system
__OUTPUT__
glob