$SIG{__DIE__} = sub {
    die @_ if $^S;
    ...
  };

##</code><code>##

  BEGIN {
    $module_loaded = eval { require Some::Module };
  }