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