$ 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_detail
+s[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 ---
$
[download]