Select Code to Download

$ perl test.pl 
Deep recursion on subroutine "Tree::_fix_height" at
...
.
.
.

    (W recursion) This subroutine has called itself (directly or indir
+ectly)
    100 times more than it has returned.

This threshold can be changed from 100, by recompiling the perl binary
+,
    setting the C pre-processor macro PERL_SUB_DEPTH_WARN to the desir
+ed value.

#!/usr/bin/perl
use strict;
...

$ perl test.pl
success