Or to take this a step further, place the following at the beginning of the script....

use Carp;
$SIG{__DIE__} = \&Carp::confess;
[download]

This turns any die into a confess, giving you a full stack trace. (Of course it does add two to the line numbers reported -- you could fudge this by adding these two statements to a pre-existing line).
Enjoy...

--JAS