$SIG{__DIE__} = \&die_catcher;
...
#
#   die_catcher
#
#   Try to log the call stack if we die
#
sub die_catcher {
    for my $caller ( CallStack() ) {
        alog(LOG_ERR, $caller);
    }
}
...
#
#   Courtesy of Perl Monks http://www.perlmonks.org/?node_id=51097
#
sub CallStack {
    local $@;
    eval { confess( '' ) };
    my @stack = split m/\n/, $@;
    shift @stack for 1..3; # Cover our tracks.
    return wantarray ? @stack : join "\n", @stack;
}