>perl -dwe"$DB::deep = 1000; sub f { f($_[0]-1) if $_[0]; } f(150);"

Loading DB routines from perl5db.pl version 1.37
Editor support available.

Enter h or 'h h' for help, or 'perldoc perldebug' for more help.

main::(-e:1):   $DB::deep = 1000; sub f { f($_[0]-1) if $_[0]; } f(150);

  DB<1> r
Deep recursion on subroutine "main::f" at C:/Progs/perl5161-ap1601/lib/perl5db.pl line 3550.
 at C:/Progs/perl5161-ap1601/lib/perl5db.pl line 3550.
...