D:\tmp\pm>perl tst_recursion.pl
Deep recursion on subroutine "main::tst" at tst_recursion.pl line 12.
LIMIT 1050 reached at tst_recursion.pl line 11.

D:\tmp\pm>