$SIG{__DIE__} = sub {
    warn "ack: ", join(', ', grep defined, caller(0)), $/;
};

die("I died at line: ", __LINE__);

__output__

ack: main, -, 5, main::__ANON__, 1, 0, 0, 
I died at line: 5 at - line 5.