$ perl -wle 'sub CORE::caller {print "foo"} caller'
Useless use of caller in void context at -e line 1.