Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
use Devel::TraceCalls { Subs => [qw/fib /]};
...
TRACE: | ! | +-main::fib( 0 )
TRACE: | ! | +-main::fib( 1 )
5

md fib-5
md fib-5\fib-3
...
md fib-5\fib-4\fib-3\fib-2
md fib-5\fib-4\fib-3\fib-2\fib-0
md fib-5\fib-4\fib-3\fib-2\fib-1

fib-5
|-- fib-3
...
        `-- fib-2
            |-- fib-0
            `-- fib-1