I believe what you are looking for is caller. For deep debugging, I use the following die replacement:

sub DIE { 
  my $i=0; 
 
  while (my @info=caller($i++)) { 
        print STDERR "$info[3]($info[2]) "; 
 }                
  
  print STDERR ": "; 
  printf STDERR @_; 
  print STDERR "\n"; 
 
  exit 1; 
}
[download]

which when used, produces output like

main::DIE(16) main::foo(19) main::ack(22) main::bar(25) : HI
[download]

when run via

sub foo { 
        DIE "HI"; 
} 
sub ack { 
        foo; 
} 
sub bar { 
        ack; 
} 
 
bar();
[download]

---

Update: I should make it clear, I don't intend for this to be a direct replacement for die in any way. I meant to imply that I stick it into code (and a comparible WARN routine) for debugging purposes only.

If you wanted a caller output and then a normal die, I would suggest something like (untested):

sub DIE {
  my $i=0; 
  my $buff;

  while (my @info=caller($i++)) { 
        $buff.="$info[3]($info[2]) "; 
 }                

 die $buff;
}
[download]

or using one of the other approaches suggested here :)