We have discussed recursion in Perl and the problem with recursion that is too deep, but how can you find out the current depth of the recursion?