Select Code to Download

use warnings;
use strict;
...
    my $num = shift;
    return ++$num;
}

use warnings;
use Devel::Trace::Subs qw(trace trace_dump); # injected by Devel::Trac
+e::Subs
...
    my $num = shift;
    return ++$num;
}

$ENV{DTS_ENABLE} = 1;

three(5); # this is the original call stack you're running

trace_dump();

216

...
    file:    test.pl
    line:    22
    package: main

$ENV{DTS_ENABLE} = 1;

trace_dump();