perl -e 'sub foo { CORE::log(shift) }; print foo(123),$/;'