Select Code to Download

use strict;
use warnings;
...

    return fib_tail( $max_num, $cur_num + 1, $tot_1, $tot_2 + $tot_1 )
+;
}

1 by orig = 1 (1 calls to sub)
1 by tail = 1 (2 calls to sub)
...

25 by orig = 75025 (150049 calls to sub)
25 by tail = 75025 (26 calls to sub)