$ perl -E 'sub f{say $_[0] unless $_[0] % 10000;exit if $_[0] > 30000;f($_[0]+1)};f(1)'
10000
20000
30000

$ perl -wE 'sub f{say $_[0] unless $_[0] % 10000;exit if $_[0] > 30000;f($_[0]+1)};f(1)'
Deep recursion on subroutine "main::f" at -e line 1.
10000
20000
30000

##</code><code>##

$ perl -wE 'sub f{say $_[0] unless $_[0] % 33;exit if $_[0] >= 99;f($_[0]+1)};f(1)'
33
66
99
ken@ganymede: ~/tmp
$ perl -wE 'sub f{say $_[0] unless $_[0] % 33;exit if $_[0] >= 100;f($_[0]+1)};f(1)'
33
66
99
Deep recursion on subroutine "main::f" at -e line 1.