$SIG{__DIE__}= sub {
        die @_   if  $^S;
        # rest of code here
    };