perl -e 'sub try { print +(caller(0))[3] }; try() '