Also, you can use Carp::Always. Start your script like this:

perl -MCarp::Always script.pl
[download]

and it will print backtrace if program die.