$ perl use strict; use warnings; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); sub show_call_stack { my $max_depth = 7; my $i = 1; # start on 1 to skip last function call DEBUG("--- Begin stack trace ---"); while ((my @call_details = (caller($i++))) && ($i < $max_depth)) { DEBUG( "$call_details[1] line $call_details[2] in function $call_details[3]"); } DEBUG("--- End stack trace ---"); } sub foo { show_call_stack(); bar(); } sub bar { show_call_stack(); tze(); } sub tze { show_call_stack(); } # ------ main ------ foo(); __END__ 2008/09/26 12:16:35 --- Begin stack trace --- 2008/09/26 12:16:35 - line 33 in function main::foo 2008/09/26 12:16:35 --- End stack trace --- 2008/09/26 12:16:35 --- Begin stack trace --- 2008/09/26 12:16:35 - line 20 in function main::bar 2008/09/26 12:16:35 - line 33 in function main::foo 2008/09/26 12:16:35 --- End stack trace --- 2008/09/26 12:16:35 --- Begin stack trace --- 2008/09/26 12:16:35 - line 25 in function main::tze 2008/09/26 12:16:35 - line 20 in function main::bar 2008/09/26 12:16:35 - line 33 in function main::foo 2008/09/26 12:16:35 --- End stack trace --- $