:/tmp$ perl -wE'my $x=0; sub rec { return if ($x++ >= 99); rec()}; rec()'
Deep recursion on subroutine "main::rec" at -e line 1.                     # <---
:/tmp$ perl -wE'my $x=0; sub rec { return if ($x++ >= 98); rec()}; rec()'