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

##</code><code>##

while ( do { package DB; @DB::args = (); @c = caller($i++) } ) {
    push @stack_trace, [ @c[0 .. 3] ];		
}