BEGIN {*CORE::GLOBAL::caller = sub {print "foo"}} caller