$ ls
AGM  AGM.pm  foo
$ perl -e'print prototype("CORE::glob"), $/'

$ perl -e'{ local *CORE::GLOBAL::glob = sub {()}; while (<*>) {print "Oh, No!\n"} } while (<*>){ print "Ha!\n"}'
Ha!
Ha!
Ha!
$