local $SIG{__DIE__} = sub { die "[".gmtime." UTC] (PID $$) FATAL ".shift };
# - OR - #
for my $i (0..10) {
    local $SIG{__DIE__} = sub { my $e = shift; $e=~s/\.?\n?$//; die "$e (item $i)\n" };
}
# - OR - #
local $SIG{__DIE__} = sub { chomp(my $m = shift); syslog('err','Error: %s',$m) };