Select Code to Download

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

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