Getting stacktrace $SIG{__DIE__} hook from outsider code which ignores and trashes all exceptions.

mystacktrace-test.pl

#!/usr/bin/perl

use strict;
use warnings;

use Sys::Syslog;
#use Carp;

BEGIN {
    ( my $basename = $0 ) =~ s{.*/}{};
    openlog "mystacktrace/$basename\[$$]", "ndelay", "user";
    $SIG{__DIE__} = sub {
        my $message = shift;
        chomp $message;
        for ( my $i = 1 ; ; $i++ ) {
            my ($package, $filename, $line, $subroutine) = caller($i) or last;
            my $syslog_line = "[$i\: $subroutine \@ $filename\:$line]";
            $syslog_line   .= " " . $message if $i == 1;
            syslog info => $syslog_line;
        }
        die $message . "\n";
    };
}

### 以下は第三者が書いたコードで、握りつぶされた例外をコード非破壊でスタックトレースを取らないといけないという命題

sub foo {
    die "something wrong";
}
sub bar {
    foo;
}
sub baz {
    bar;
}

eval { baz(); };

exit;