local $SIG{__DIE__} = sub {

   ...

   local $SIG{__DIE__}; local $\ = undef;
   my $_die_msg = (defined $_[0]) ? $_[0] : '';
   print {*STDERR} $_die_msg;

   $self->exit(255, $_die_msg, $self->{_chunk_id});
};