Select Code to Download

$ nice perl -we 'use strict; use diagnostics; sub foo { foo() } foo()'
Deep recursion on subroutine "main::foo" at -e line 1 (#1)
...
    100 times more than it has returned.  This probably indicates an
    infinite recursion, unless you're writing strange benchmark progra
+ms, in
    which case it indicates something else.