$SIG{__DIE__} = sub {
   return if $^S;

   ...

   print(STDERR $_[0]);
   exit($! || ($? >> 8) || 255);
};