local $SIG{__DIE__} = 
          sub { my $i = -1;
                while (my @c= caller(++$i)) {
                   print " at $c[1] line $[2]\n";
                }
              };