$SIG{__DIE__} = sub { $! = 42; die @_ };

##</code><code>##

  $SIG{__DIE__} = sub { $! = 42 unless $^S; die @_ };