Select Code to Download

BEGIN {
  $SIG{__DIE__} = sub {
...
          unless ($package eq 'Carp');
  }
}

BEGIN {
  $SIG{__DIE__} = sub {
...
         ((defined ($^S)) and not $^S);
  }
}