perl -e 'sub f;print f; sub f {"123\n"}'