$ 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