Select Code to Download

push @stack_trace, [ (caller($i))[0 .. 3] ] while caller(++$i);  

    {
        package DB;
...
            push @stack_trace, [ @c[0 .. 7] ];        
        }
    }