perl -e 'sub x { x() }; x()'