Select Code to Download

:/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
+()'