# $SIG{__DIE__}:

   $SIG{__DIE__} = sub {
       my $message = shift;
       # ...
   };